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PART  I 

Mathematical  Background  for  Boolean 
Matrix  Calculator  Described  in  Part  II 
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1.  Basic  Concepts 


A  semigroup  S'  is  a  non-empty  set  S  together  with  an  associative  multiplication  (binary 
operation  S  x  S  S).  For  example,  if  S  =  -3,  -2,  -1,  0, 1, 2, 3, ...  }  is  the  set  of 

integers  under  multiplication,  then  S  is  a  semigroup.  A  subsemigroup  T  of  a  semigroup  S 
is  a  non-empty  subset  T  of  S  such  that  ^1,^2  €  T  implies  the  product  tit2  is  also  in  T.  For 
example,  if  T  =  {1, 2, 3, ...  },  then  since  a  product  of  positive  integers  is  a  positive  integer, 
T  is  a  subsemigroup  of  the  integers  under  multiplication. 

As  one  might  expect,  the  class  of  semigroups  is  indeed  large.  For  our  purposes,  however, 
we  shall  restrict  our  attention  to  subsemigroups  of  the  semigroup  of  binary  relations  Bn 
under  relation  composition.  More  precisely,  for  N  -  {1,2,  ...,n},  the  semigroup  Bn 
consists  of  all  subsets  a  C  N  x  N  with  the  multiplication  “0”  given  by 

a  o  13  =  {  (i,j)  \  [i,k)  e  a  and  (k,j)  E  P  for  some  k  E  N  ]  {a,/3  E  Bn)- 

Each  relation  a  in  Bn  may  be  realized  as  an  n  x  n  matrix  of  zeros  and  ones  (a  monomial 
matrix).  For  example,  if  a  =  {(1, 2),  (3, 4)}  E  B^,  then  a  corresponds  to  the  matrix 

/O  1  0  0\ 

0  0  0  0  1 
0  0  0  1  I  ■ 

Vo  0  0  0/ 


In  other  words,  each  binary  relation  a  E  Bn  corresponds  to  a  monomial  matrix  A 
which  is  given  by 

1  ii{i,j)Ea, 

0  otherwise. 

This  correspondence  is  bijective,  i.e.,  a  t— >  [aij]  and  [a^j]  a  are  inverse  mappings. 

For  a  multiplication  of  monomial  matrices  that  corresponds  to  relation  composition 
“o”,  we  have  the  usual  matrix  multiplication  with  the  restriction  that  “1  -|-  1  =  1.”  For 
example,  in  B3  we  have 


—  [aij  , 


/I  0  1\  /I  1  1\  /I  1  1\ 

0  0  10  0  0  =  1  0  0  . 

\0  00/  \1  0  0/  \0  0  0/ 

With  this  matrix  multiplication,  the  set  Mnxn  of  X  n  monomial  matrices  becomes  a 
semigroup,  which  is  isomorphic  to  the  semigroup  Bn-^  Because  of  this  isomorphism,  the 
elements  of  may  be  called  either  binary  relations  or  monomial  matrices. 

^  A  semigroup  S  is  isomorphic  to  a  semigroup  S'  when  there  is  a  bijection  ?i>  :  5  — *•  5'  such  that  {ab)4>  =  a^b(f> 
for  every  a,b  €  5. 
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An  element  £  of  Bn  is  an  idempotent  if  ££  =  £.  For  example,  since 


/O  1  0\  /O  1  0\  /O  1  0\ 

0  1  0  0  1  0  =  0  1  0  , 

\0  00/  \0  0  0/  \0  0  0/ 


we  see  that  this  monomial  matrix  is  an  idempotent  in  .  An  element  a  of  a  semigroup  S 
is  a  regular  element  if  the  equation  ax  a  =  a  has  a  solution;  and  5  is  a  regular  semigroup  if 
each  of  its  elements  is  regular.  (This  idea  of  “regular”  is  due  to  von  Neumann  1936.)  For 
instance,  if 


/O  1  0 

0  0  1 
\0  0  1 


/O  1  0\  /O  0  0\  /O  1  0\  /O  1  0\ 

jO  0  Ij  l  0  0  0  0  1  =  0  0  1, 

\0  0  1/  \0  1  0/  \0  01/  \0  0  1/ 


showing  that  a  is  a  regular  element  of  B^.  An  element  b  E  S  is  an  inverse  of  a  G  5,  if  both 
aba  =  a  and  bob  =  b.  Moreover,  a  semigroup  S  is  an  inverse  semigroup  if  every  element 
has  a  unique  inverse. 


2.  Some  Subsemigroups  of  Bn 

The  semigroup  Sn  of  all  permutations  of  N  =  {1,2,...  ,  n}  is  the  set  of  all  one-one  onto 
functions  a  :  N  ^  N  under  composition.  This  semigroup  may  be  viewed  as  a  subsemigroup 
of  Bn-  For  example,  S2  contains  two  permutations  —  think  of  the  monomial  matrices  that 
have  exactly  one  “1  ”  in  each  row  and  each  column  — 


One  of  these  matrices,  written  as  a  function,  yields  the  permutation  {(1, 1),  (2, 2)}  while 
the  other  yields  {(1,2),  (2, 1)}.  In  general,  each  such  matrix  (exactly  one  “1”  in  each  row 
and  each  column)  in  Bn  defines  a  permutation  in  Sn-  This  correspondence  shows  that  we 
may  view  Sn  a  subsemigroup  of  Bn-  The  semigroup  Sn  is  called  the  symmetric  group  on 
n  symbols. 

We  also  have  the  symmetric  inverse  semigroups  Cn,  fi-  =  1,2,3,....  Their  members 
are  charts  and  the  multiplication  is  function  composition.  Charts  are  also  called  partial 
one- one  transformations .  A  chart  a  €  Cn  if  and  only  if  a  ;  da  ^  ra  is  a  one-one  function 
whose  domain  da  and  range  ra  are  subsets  of  iV  =  {1, 2, . . .  ,  n}.  Since  permutations  of 
N  are  charts  in  Cn-,  the  symmetric  group  5„  is  a  subgroup  of  Cn.  Each  semigroup  Cn 
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may  also  be  viewed  as  a  subsemigroup  of  For  n  =  2,  there  are  seven  charts  —  think 
of  the  monomial  matrices  that  have  at  most  one  “1  ”  in  each  row  and  each  column.  The 
symmetric  inverse  semigroup  C2  therefore  contains  not  only  the  two  permutations  in  S2, 
but  also  the  five  charts 


1  0 
0  0 


0  1 
0  0 


0  0 
0  1 


0  0\  ,(00 
1  0  j  ’  t  0  0 


The  semigroup  Cn  is  a  subsemigroup  of  the  still  larger  semigroup  PTn,  which  consists 
of  all  partial  transformations  of  {1,2,...  ,n}.  More  precisely,  ct  €  PTn  if  and  only  if 
o;  :  da  ^  ra  is  a  function  whose  domain  da  and  range  ra  are  subsets  of  iV  =  {1, 2, . . . }. 
To  picture  the  elements  of  PTn  inside  of  Bn,  we  may  think  of  the  monomial  matrices  that 
have  at  most  one  “1  ”  in  each  row.  For  example,  PT2  contains  nine  members  —  the  seven 
matrices  in  C2  and  the  two  matrices 


and 


Turning  to  the  numbers  of  members  of  some  of  these  subsemigroups  of  Bn,  we  have  that 
the  number  \Bn\  of  elements  in  Bn  is  2”  ,  the  number  in  PTn  is  {n  1)”,  the  number  in 

C'n  is  Xlit=o  (fc)  number  in  is  nl.  In  particular,  for  n  =  2, ...  ,8,  we  have 

the  following: 


\Bn\ 

\PTn\ 

IC-nl 

l^^nl 

n  =  2 

16 

9 

7 

2 

n  =  3 

512 

64 

34 

6 

n  =  4 

65,536 

625 

209 

24 

n  =  5 

33,554,432 

7,776 

1546 

120 

n  =  6 

68,719,476,736 

117, 649 

13,327 

720 

n  =  7 

562,949,953,421,312 

2,097,152 

130,922 

5, 040 

n  =  8 

18,446,744,073,709,551,616 

43, 046, 721 

1,441,729 

40,320. 

For  our  last  subsemigroup  of  let  us  consider  transposes  of  the  members  of  PTn  — 
we  obtain  another  subsemigroup  “PTj”  of  which  is  antiisomorphic  to  PT„,  i.e.,  using 
OL^  to  indicate  the  transpose  of  a  G  PTn, 


{a  o  o  {a,/3ePTn). 

So  like  PT2,  the  antimorph  PT^  of  PT2  also  has  nine  members  —  the  seven  members  of 
C2  and  the  two  matrices 


1 

1 


and 
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In  general,  we  may  think  of  PT^  as  consisting  of  those  monofnial  matrices  that  have  a 
most  one  “1”  in  each  column. 

3.  Paths 

Having  Sn  a  subgroup  of  Cnt  might  suspect  that  the  disjoint  cycle  decomposition 
of  permutations  somehow  extends  to  charts,  i.e.,  given  any  chart  a  G  Cn,  v/e  desire  to 
^^ecompose”  ex  =  cxi  ••■cxji;  into  certain  ^^atomic  charts’  oj,...  ,0^.  In  this  section,  we 
develop  such  a  decomposition  of  charts.  (For  the  time  being,  we  do  not  use  the  matrix 
notation.) 

In  conjunction  with  the  usual  parentheses  “(”  and  “)”,  path  notation  allows  for  the  use 
of  a  right  square  bracket  '^]”.  The  bracket  serves  to  specify  those  points  that  are  not  in 
the  domain  of  a  chart,  e.g.,  (1](2]  •  •  •  (n]  denotes  the  empty  (or  zero)  chart  0  €  Other 
examples  are  pictured  in  Figure  3.1. 


(1)  (1]  (1234)  (123] 


Figure  3.1.  Picturing  paths. 

More  precisely,  for  distinct  elements  ii,...  ,ik  of  N ,  let  a  G  Cn  have  domain  do  = 
{^1,...  ,ifc}  and  suppose  iia  =  ^2,  *2^  =  *3)  ■■■■>  U-i®  =  iki  and  ikcx  =  q.  Then  o  is  a 
path.  Turning  on  the  value  of  q,  we  have  two  kinds  of  paths:  If  q  =  ii  and  N  —  da  = 
{iij---  On— fc})  then 

a  =  (H,i2,. . .  ,4)(ii](i2]  •  ■■{jn-k] 

is  a  circuit  (a  fc-circuit  or  a  circuit  of  length  k).  If  q  ^  *i,  then  —  do  =  {g, mi,  m2, . .  • , 
m„_fe_i}  and 

a  =  (*i,*2,--  -  ,ik,q]{mi]{m2]---{mn-k-i] 

is  a  proper  path  (a  proper  (k  +  l)-path  or  a  proper  path  of  length  k  +  1).^ 

In  addition  to  these  paths  (circuits  of  length  >  1  and  proper  paths  of  length  >  2),  we 
define,  for  each  j  G  N,  the  proper  1-path 

(;]  =  (l](2].--(n]=0GC'„. 

^Depending  on  context,  we  use  “(ii , . . .  ,  ijt,  9]”  to  denote  either  the  chart  (ii , . . .  ,  ifc,  9](^i)  *  ’ '  (^n  — fc— 1) 
or  a  proper  path. 


NSWCDD/MP-95/162 


We  therefore  have  i-paths,  i.e.,  circuits  and  proper  paths  of  length  £  >  1.  For  example, 
(1]  •  •  •  (z  —  l](i)(*  +  1]  ■  •  •  (n]  denotes  the  1-circuit  with  domain  {i},  while  (12](3]  •  •  •  (n] 
denotes  the  proper  2-path  that  maps  1  to  2.  Every  path  has  an  obvious  geometrical 
representation  (Figure  3.1). 


4.  Building  Charts  From  Paths 

To  build  charts  from  paths,  let  a,/3  ^  Cn  and  suppose  that  (da  U  ra)  and  (d/?  U  r/3)  are 
disjoint.  Then  a  and  ^  are  disjoint  and  the  join  7  of  a  and  f3  (denoted  7  =  ajd  =  ^a)  is 
the  chart  with  domain  da  U  d^  and  values  determined  by 

{xa,  X  E  da 

x/3,  X  E  d/3. 

So  the  join  7  =  a/d  exists  if,  and  only  if,  a  and  are  disjoint.  For  instance,  the  proper 
2-path  a  =  (12](3](4]  and  the  2-circuit  /?  =  (1](2](34)  are  disjoint  charts  in  C4  and  their 
join  is  7  =  a/3  =  (12](34).  Note  that  we  did  not  write  7  =  (12](3](4](1](2](34),  which 
would  be  confusing.  It  turns  out  that  the  explicit  appearance  of  1-paths  “(j]”  is  often 
unnecessary.  This  is  similar  to  the  case  of  1-cycles  in  cycle  notation.  To  make  matters 
worse,  at  times  we  shall  also  suppress  1-circuits  “(i)-” 

Learning  to  multiply  charts  in  path  notation  is  like  learning  to  multiply  permutations 
in  cycle  notation,  it  takes  a  little  practice.  For  starters,  use  the  charts  a  =  (123)(45] 
and  /3  =  (41)(53)(2]  in  C5  to  calculate  a  o  (3  —  (1](25](34).  Then  practice  taking  powers 
of  the  proper  5-path  7  =  (12345]  —  calculate  that  7^  =  (135](24],  7^  =  (14](25](3], 
7*  =  (151(2)(3](4].  and  7=  =  (ll(2|(3](4](5]  =  0. 


5.  Decomposing  Charts  with  Paths 

Pick  any  chart  a  E  Cn  and  suppose  that  x  E  da.  We  shall  form  some  proper  paths  and 
circuits  that  depend  on  the  a-iterates  of  x\  Let  us  look  at  the  first  iterate.  We  define 

Vx  —  (x,ra]  if  xa  ^  x,  or  7^  =  (x)  if  xa  =  x. 

Continuing  with  higher  order  iterates,  for  each  >  2,  we  also  define 

r/x  =  (x,  xa,  xa^, . . .  ,xa*']  when  {x,  xa,  xa^, . . .  ,  xa*}  has  size  k  +  1,  and 

7x  =  (3^?  xa^, . . .  ,  xa*~^)  when  {x,  xa,  xa^, . . .  ,  xa*}  has  size  k  and  xa*  =  x. 

Each  r/x  is  a  proper  path  in  a;  and  each  circuit  7^  is  a  circuit  in  a.  But  unlike  circuits,  each 
proper  path  77  =  (ii,i2,  • . .  ,7jt]  has  a  left-endpoint  ii  and  a  right- endpoint  ik-  Moreover,  a 
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proper  path  t]x  in  a  is  maximal  when  its  left  endpoint  x  €  da  —  ra  and  its  right  endpoint 
a;a*  G  ra  —  da. 

To  describe  how  the  various  paths  in  a  must  interact,  we  shall  say  that  the  path  77  meets 
the  path  7  whenever  they  are  not  disjoint,  i.e.,  when 

(d?;  U  rrj)  fl  (d7  U  r7)  /  0. 

To  illustrate,  note  that  the  circuit  (123)  meets  the  proper  2-path  (43]  at  3,  while  the  proper 
paths  (1234)  and  (5678]  are  disjoint. 

5.1  Lemma 

If  a  E  Cm  then  the  following  are  true: 

(1)  For  maximal  paths  77  and  rj'  in  a,  either  t]  =  rj'  or  rj  does  not  meet  r]' . 

(2)  For  circuits  7  and  in  a,  either  7  =  7^  or  7  does  not  meet  7^ 

(3)  No  maximal  path  rj  in  a  meets  any  circuit  7  in  a. 

(4)  For  each  y  Era  —  da,  there  exist  x  E  da  —  ra  and  k  >  1  such  that  xa^  =  y,  i.e., 
maximal  rjx  =  {x,  xa, . . .  ,  xa^  =  y\  exists  whenever  y  E  ra  —  da. 


We  are  now  in  a  position  to  state  the  fundamental  representation  theorem. 

5.2  Theorem  (Unique  Representation  of  Charts) 

Every  chart  a  E  Cn  —  {0}  is  a  (disjoint)  join 

m  •  •  ■77u7i  •  •  •7„ 

of  some  (possibly  none)  length  >  2  proper  paths  rji,. . .  ,77^  and  some  (possibly  none)  cir¬ 
cuits  7i,...  ,7v  Moreover,  this  factorization  is  unique  except  for  the  order  in  which  the 
paths  are  written. 

From  Theorem  5.2,  each  nonzero  a  G  Cn  is  a  disjoint  join 

a  =  (ciii  •  ■■aifci]'''(Qul  ■■■Qufcu](^ll  ‘■■^lmi)'''(^t;l  '  '  '  bvmS) 

of  proper  paths  of  length  >  2  and  circuits.  If  {ji, . . .  ,  =  N  —  (da  U  ra),  then  none  of 

the  ji's  appear  in  the  representation  specified  in  Theorem  5.2.  We  may,  however,  augment 
the  Theorem  5.2  join  with  the  proper  1-paths  (ji]  {ji  ^  da  U  ra)  and  obtain  yet  another 
unique  representation.  Indeed,  augmenting  the  representation  above,  we  obtain 

=  (il]  •  •  •  ijeKO'll  ■  ■  -aifci]  •  •  •  (Oni  •  •  •  auknKhl  •  •  •  ^Imi)  •  •  •  {bvl  ■  ■  ■  bvm„), 
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Figure  5.1.  The  path  decomposition  of  a  chart. 


which  we  shall  call  either  the  path  decomposition  ov  join  representation  of  Oi.  For  instance, 
the  decomposition  of  a  =  {(1, 2),  (2, 3),  (4, 5),  (5, 4)(7, 7)}  €  Cr,  which  may  be  written  in 
standard  form 


A  2  3  4  5  6 
V2  3  -  5  4  - 


€  Cj, 


is  simply  (123](6](45)(7)  and  may  be  graphically  represented  as  in  Figure  5.1. 

We  also  note  that  while  the  zero  chart  0  of  Cn  is  excluded  from  Theorem  5.2,  it  does 
have  path  decomposition  (!]•••  (n].  The  zero  (!]•••  (n]  is  an  example  of  a  nilpotent,  which 
is  a  chart  whose  path  decomposition  contains  no  circuits.  In  fact,  given  a  e  Cn  with  join 
representation  above,  its  nilpotent  part  is 


V  Ol]  ■  ■  ■  ■  ■  ■  (QuI  ■  ■  ■  ](^1 1]  ■  ■  ■  '  ‘  '  (^ul]  ’  '  ' 


and  its  permutation  part  is 


'y  (il]  ■  ■  ■  ]  ■  ■  ■  (Oui]  •  ■  •  (Oufcu  ](&11  ■  ■  ■  &lmi  )  ■  ■  ■  )• 

In  other  words,  each  chart  a  =  rj'y  is  the  join  of  its  nilpotent  and  permutation  parts. 
In  particular,  the  chart  a  =  (123](6](45)(7)  pictured  in  Figure  5.1  has  nilpotent  part 
T]  =  (123](6]  =  (123](6](4](5](7]  and  permutation  part  7  =  (45)(7)  =  (45)(7)(1](2](3](6]. 


6.  Decomposing  Partial  Transformations 

Recall  that  the  semigroup  PTn  of  partial  transformations  on  N  =  {1,2,...  ,n}  is  the 
set  of  all  functions  a  :  da  — >  ra  (with  domain  da  C  N  and  range  ra  C  iV)  under  function 
composition.  Relative  to  Sn  and  Cn,  the  useful  semigroup  hierarchy  is 

SnCCnC  PTn  C  Bn, 

where  Bn  is  the  semigroup  of  all  binary  relations  a  C  N  x  N  under  composition.  In 
extending  path  notation  from  Cn  to  PT„,  we  shall  introduce  the  right  angle  “)”  notation, 
a  notation  that  identifies  those  points  where  certain  proper  paths  meet  a  circuit.  Examples 
are  provided  in  Figure  6.1,  where  members  of  PTn  are  pictured  geometrically. 
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Figure  6.1.  Partial  transformations  and  path  notation. 


Since  Sn  C.  Cn  C  PTn  C  Bn,  it  is  natural  to  extend  the  idea  of  “join  in  to  join  in 
Bn-  For  a,l3  E  Bn,  define  the  join  af3  as  the  union  a  U  /?.  In  particular, 


J  Cn  if  Oi,  I3  ^  Cn  and  (da  U  m)  fl  (djS  U  r/?)  =  0 

^  ^  \  PTn  if  a,  /?  G  PTn  and  x  G  da  fl  d/?  xa  =  xl3. 

With  this  join  operation,  we  could  start  with  proper  paths  and  circuits  in  Cn  and  then 
build  partial  transformations.  We  begin  in  reverse,  however,  starting  with  a  G  PTn  and 
then  defining  certain  paths  induced  by  a.  First,  for  each  x  ^  da  U  ra,  we  shall  call  the 
expression  “(x]”  a  maximal  proper  path  in  a.  And  then  for  x  G  da  and  k  >  1,  we  let 


■qj.  =  (a;,  a;a, . . .  ,  xa^]  when  {x,  xa,  xa^, . .  .  ,  xa*^}  has  size  A;  +  1,  and 

'Yj.  =  (x,  xa, . . .  ,  xa*^)  when  {x,  xa, . . .  ,  xa^“^ }  has  size  k  with  xa^  =  x  and  xa°  =  x, 


calling  77x  a  proper  path  in  a,  and  -jx  (whenever  it  exists)  a  circuit  in  a.  Such  a  proper  path 
qx  is  also  maximal  if  its  left  endpoint  x  G  da  —  ra  and  its  right  endpoint  xa^  G  ra  —  da. 
So  maximal  proper  paths  in  a  come  in  two  varieties  —  those  of  the  qx  kind  and  those 
expressions  “(x]”  where  x  ^  da  U  ra. 

For  paths  q  and  7  in  a,  we  say  that  q  meets  7  whenever  they  are  not  disjoint  (as  charts). 
In  particular,  if  (dTy  U  rq)  fl  (dy  U  r7)  =  {y],  then  q  meets  7  at  y;  and  if  both  q  and  7 
are  proper  paths  with  a  common  proper  terminal  segment  cr,  we  say  that  q  meets  7  in  <7, 
where,  for  k  >  2  and  rj  —  {ii  ■  ■  ■  ik],  we  say  that  q  has 


initial  sets: 
terminal  sets: 
initial  segments: 
terminal  segments: 


-  •  •  •  ,^k}, 

, {u-1, 4}, {u}; 

(*i],(m,*2],  •  •  ■  ,(*i  ■■•U-];  and 


To  illustrate  these  concepts,  consider  the  partial  transformation 


/I  2  3  4  5  6 
V2  1  1  3  3  7 


G  PT7 
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2  6 
(431>(531>(12)(67] 


Figure  6.2.  Maximal  proper  paths,  circuits,  and  common  terminal  segments. 

as  pictured  in  Figure  6.2.  Note  that  each  of  77  =  (431],  t]'  =  (531],  and  r]"  =  (67]  is  a  proper 
path  in  a,  but  that  only  77"  is  maximal.  Moreover,  observe  that  7  =  (12)  is  a  circuit  in 
O',  that  both  77  and  rj'  meet  7  at  1,  and  that  77  meets  rj'  in  the  common  terminal  segment 
a  =  (31]. 

6.1  Lemma 

Let  a  6  Pr„.  If  r)  and  77'  are  maximal  ■proper  paths  in  a  and  if  j  and  7'  are  circuits  in  a, 
then  the  following  statements  are  true: 

(1)  If  77  meets  rj' ,  then  either  rj  =  r]'  or  r/  meets  rj'  in  a  common  proper  terminal  segment. 

(2)  Either  7  =  7'  or  7  does  not  meet  "f' . 

(3)  For  each  y  G  m  -  da  there  exist  x  6  da  -  ra  and  k  >  1  such  that  xa^  =  ■y,  i.e.,  a 
maximal  773,  =  (x,  xa, . . .  ,  xa*  =  y]  exists  whenever  y  e  ra  -  da. 


6.2  Theorem  (Unique  Representation  of  Partial  Transformations) 

Every  transformation  a  G  PT^  —  {0}  is  a  join  r}i  ■  ■  -riuli  ’  ‘  'Jv  of  some  (possibly  none) 
length  >  2  proper  paths  771, .. .  ,  77„  and  some  (possibly  none)  circuits  71, . . .  ,7„  such  that 
for  indices  i,j  (^distinct  in  (1)  and  (2)); 

(1)  T]i  meets  rjj,  if  at  all,  in  a  common  proper  terminal  segment; 

(2)  7j  does  not  meet  7^;  and 

(3)  T]i  meets  7^,  if  at  all,  at  the  right  endpoint  of  rji. 

Moreover,  this  factorization  is  unique  except  for  the  order  in  which  the  paths  are  written. 
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Figure  7.1.  Decomposing  a  partial  transformation. 

7.  Cilia  and  Cells  of  Partial  Transformations 
From  Theorem  6.2,  each  nonzero  a  £  PTn  is  a  join 

a  =  (ail  ■  •  •  oifcj]  •  •  •  (a„i  ■  •  •  a„ji:u](^ii  •  •  •  ^imi ) ' ' '  i^vi  '  • '  bvm^ ) 

of  proper  paths  (of  length  >  2)  and  circuits  that  satisfy  (1)— (3)  in  6.2.  To  this  join,  then, 
we  may  join  the  proper  1-paths  (j,],  ji  ^  do  U  ra,  yielding 

=  (ill  ■  ■  ■  (if](®ll  ■  ■  ■  “Ifcj  ■  ■  ■  (®m1  ■  ■  ■  <^itfcu](^ll  ■  ■  ■  ^Imi)  •  •  •  (bvl  ■  •  •  i>vrn^)- 

We  shall  refer  to  this  unique  representation  as  either  the  path  decomposition  or  join  repre¬ 
sentation  of  a.  In  particular,  a;  =  0  G  PT„  has  join  representation  (1]  •  •  •  (n],  even  though 
the  zero  transformation  0  of  PTn  is  excluded  from  6.2. 

In  the  join  representation  of  a  partial  transformation,  proper  paths  are  of  two  kinds, 
namely,  those  that  meet  circuits  and  those  that  do  not  meet  circuits.  We  call  each  of  the 
former  kind  a  cilium  (plural  =  cilia).  For  example, 

oi  ”  (1,2,...  ,2,xo](xo,3^i,...  m  — 1  )ePTn 

is  a  join  of  a  cilium  (1,2,  •  •  •  ,*,  a^o]  ^  circuit,  which  we  clearly  mark  by  replacing  the 

right  bracket  “]”  with  the  right  angle  “}”,  yielding 

Q^  —  (1,2,...  ,2,a^o)(^o?a^i5**‘  ^  ^  m — i}* 

We  say  that  {xo,  xi,...  ,x,n_i)is  associated  with  (l,2,...,z,xo),  and,  in  reverse,  that  (1,2, 
...,  i,xo)  is  associated  with  (xo,a;i,...  ,Xm—i)-  We  may,  in  fact,  have  any  finite  number 
of  cilia  7/1,  - . .  ,  77fc  associated  with  one  circuit  7.  In  such  a  case,  the  join  t]i  •  ■  •  Tjkj  is  called 
a  cell.  A  typical  cell  is  pictured  in  Figure  7.1,  where  we  see  the  partial  transformation 

/l  2  3  4  5  6  7  8  9  10  11  12\ 

^2  3  -  3  6  7  8  10  7  8  11  -  y 

whose  path  decomposition  is  (1,2,3](4, 3](5,6,7,8)(9,7,8)(8,10)(11)(12].  This  particular 
partial  transformation  has  two  cells,  one  with  two  cilia  and  the  other  with  none. 
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8.  Review  and  Connection  AVith  the  Calculator  Described  in  Part  II 


The  semigroup  of  binary  relations  and  its  subsemigroups  5„  C  C  PT„  C  -B„ 
were  defined  and  studied  in  the  previous  sections.  In  §1,  we  observed  that  each  binary 
relation  oc  £  Bji  is  equivalent  to  a  monomial  (or  Boolean^  Tfiatvix.  In  §2,  we  considered 
the  subsemigroups  Sn  (symmetric  group  of  permutations),  Cn  (symmetric  semigroup  of 
charts),  and  PTn  (semigroup  of  partial  transformations).  In  §3,  restricting  our  attention 
to  Cm  we  defined  the  “atomic  charts”  —  proper  paths  and  circuits.  In  §4  and  §5,  we 
provided  rules  for  joining  these  atomic  charts  and  stated  that  any  arbitrary  chart  in 
may  be  expressed  as  a  “unique  disjoint  join”  of  atomic  charts  (Theorem  5.2).  In  other 
words,  when  a  Boolean  matrix  is  a  chart,  it  has  an  equivalent  path  notation  representation. 
In  §6  and  §7,  these  “path  notation”  results  were  extended  from  Cn  to  PTn- 

To  further  illustrate  and  unify  the  facts  already  presented,  we  shall  apply  Green’s  rela¬ 
tions  (discovered  by  J.  A.  Green  in  1951)  to  the  manageable  case  of  B2.  Green’s  relations 
are  equivalence  relations  that  allow  for  picturing  arbitrary  semigroups  and  certain  of  their 
ideals  in  terms  of  egg-boxes.  (To  understand  the  software  discussed  in  Part  II,  we  need  not 
define  Green’s  relations.^) 

The  egg-box  structure  of  B2  appears  in  the  left-side  of  Figure  8.1  as  a  “chain  of  four 
vertically-linked  boxes,”  where  the  16  members  of  B2  are  represented  as  Boolean  matrices. 
In  the  middle  of  Figure  8.1,  the  nine  members  of  PT2  are  represented  in  path  notation,  as 
are  the  seven  elements  of  C2  in  the  right-side  egg-box,  where  the  symmetric  group  S2  also 
appears  and  whose  elements  are  expressed  in  cycle  notation. 

The  reason  that  some  of  the  “cells”  in  the  egg-boxes  in  the  middle  and  right  egg-box 
pictures  are  empty  is  that  there  is  (as  yet)  no  general  theory  for  expressing  (as  unique 
joins  of  proper  paths  and  circuits)  the  members  of  B2  that  are  not  in  PT2. 

For  every  n,  the  top  box  in  the  egg-box  structure  of  any  Bn  is  always  the  symmetric 
group  Sni  sometimes  referred  to  as  the  group  of  units.  Figure  8.1  illustrates,  in  a  limited 
sense,  the  progress  of  understanding  the  members  of  Bn  in  terms  partial  symmetries  —  the 
decomposition  theorem  (Theorem  6.2  above)  exposes  the  partial  symmetries  of  members 
of  PTn-  In  the  theory  of  semigroups,  the  ability  to  see  partial  symmetries  (path  notation) 
has  already  proven  useful,  allowing  for  solutions  of  several  previously  unsolved  problems. 
It  is  therefore  natural  to  consider  applications  of  these  theoretical  results. 

For  example,  an  n  x  n-pixel  array  of  lights  (a  monochrome  image)  may  be  viewed  as 
a  monomial  n  x  n  matrix  (a  pixel  is  “on”  wherever  there  is  a  “1”).  The  “binary  rela¬ 
tion  calculator  described  in  Part  II  may  then  be  used  to  illustrate  that  multiplication 
of  arbitrary  “images”  by  elements  in  Cn  allow  for  rotations,  translations,  dilations,  and 
contractions  of  these  images.  In  addition,  if  we  have  two  images  o;,  ^  then  whenever 

a  is  a  “subimage”  of  /3,  it  is  necessarily  true  that  the  product  a  o  must  be  a  join  of 
1-paths  a  fact  that  is  easily  visually  checked  by  looking  at  the  path  notation  form  of 

^For  a  development  of  Green’s  relations,  the  interested  reader  is  referred  to  John  Howie’s  text,  An  Intro¬ 
duction  to  Semigroup  Theory,  Academic  Press,  1976;  and  for  applications  of  Green’s  relations  to  see 
Janusz  Konieczny’s  1992  Penn  State  Dissertation,  Semigroups  of  Binary  Relations. 
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EGG-BOX  STRUCTURE  OF  B2 

B2  PT2  C2 


Figure  8.1.  Partial  Symmetries  of  some  members  of  B2- 

the  product  a  0  which  is  calculated  by  the  calculator. 

We  feel  that  further  investigation  of  applications  of  the  semigroup  theory  is  justified.  In 
particular,  more  effort  will  be  needed  to  extend  our  binary  matrix  calculator  to  the  PTn 
case  —  the  calculator  described  in  Part  II  is  currently  limited  to  the  C„  case. 
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PART  II 

Boolean  Matrix  Calculator 
Instruction  Manual 
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9.  Contents  of  Boolean  Matrix  Calculator  Instruction  Manual 


10.  Introduction 

11.  Display 

12.  Commands 

12.1  How  to  scroll  through  the  list 

12.2  How  to  enter  a  chart 

12.3  How  to  enter  a  Boolean  matrix 

12.4  How  to  invert  a  binary  relation 

12.5  How  to  multiply  two  binary  relations 

12.6  How  to  copy  a  binary  relation 

12.7  How  to  delete  a  binary  relation 

12.8  The  grid  command 

12.9  The  exit  command 

13.  Error  Conditions 


10.  Introduction 

The  Boolean  Matrix  Calculator  (BMC)  is  a  program  which  facilitates  the  manipulation 
of  Boolean  matrices  (binary  relations)  just  as  an  ordinary  pocket  calculator  facilitates  the 
manipulation  of  numbers. 


11.  Display 

The  display  is  divided  up  into  three  main  parts.  In  the  top  left  part  of  the  display  is  a 
menu  of  the  available  commands.  The  commands  are  initiated  by  hitting  the  single  key 
which  is  to  the  immediate  left  of  the  command.  The  function  of  each  command  is  detailed 
in  §12  of  this  manual.  In  the  bottom  part  of  the  display  is  a  window  to  the  list  of  binary 
relations  which  have  been  entered  into  the  computer.  When  you  enter  a  binary  relation 
into  the  computer,  it  is  inserted  into  a  list.  The  window  shows  up  to  four  binary  relations 
on  the  list  at  a  time.  The  binary  relations  are  written  in  path  notation  if  that  is  possible, 
or,  if  that  is  not  presently  possible,  the  word  Unrepresentable  is  written  instead.  Currently, 
to  be  written  in  path  notation,  this  program  requires  that  the  binary  relation  be  a  chart, 
that  is,  a  partial  one  to  one  function.  In  the  top  right  part  of  the  display  a  binary  relation 
is  rendered  as  a  monochrome  digital  image.  This  is  done  in  a  two  step  process.  First,  the 
binary  relation  is  represented  as  a  Boolean  matrix.  This  Boolean  matrix  representation  is 
then  taken  and  every  zero  is  converted  into  an  off  pixel  and  every  one  is  converted  into  an 
on  pixel,  thus  giving  us  a  monochrome  digital  image.  The  binary  relation  that  is  rendered 
in  an  image  is  the  one  in  the  window  with  the  arrow  (— >)  pointing  to  it. 
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12.  Commands 


12.1  How  to  scroll  through  the  list.  When  you  enter  a  binary  relation  into  the 
computer,  it  is  inserted  into  a  list.  You  can  scroll  through  this  list  using  the  plus  key  (+) 
and  the  minus  key  (-).  Hitting  the  plus  key  scrolls  the  list  up  one  relation.  Similarly, 
hitting  the  minus  key  scrolls  the  list  down  one  relation.  For  example,  assume  the  computer 
is  currently  displaying  relations  17  through  20  in  the  window  and  relation  20  is  in  image 
form.  If  you  hit  the  minus  key,  then  the  window  scrolls  down  one  relation  and  relations  16 
through  19  are  displayed  in  the  window  and  relation  19  is  in  image  form.  Thus,  by  using 
these  two  commands,  you  can  display  in  image  form  any  particular  binary  relation  in  the 
list. 


12.2  How  to  enter  a  chart.  Before  you  can  manipulate  some  binary  relations,  first  you 
need  to  enter  them  into  the  computer.  One  way  you  can  do  this  is  by  typing  in  the  path 
notation  of  the  binary  relation  you  wish  to  enter.  However,  not  every  binary  relation  is 
currently  representable  in  path  notation.  This  program  is  currently  limited  to  accepting 
the  path  notation  of  a  binary  relation  only  if  it  is  a  chart,  that  is,  a  partial  one  to  one 
function.  Path  notation  is  an  extension  of  cycle  notation  for  permutations.  Where  cycle 
notation  uses  left  and  right  parentheses,  path  notation  uses  left  and  right  parentheses  and 
also  right  square  brackets.  Right  brackets  are  placed  after  the  vertices  (vertices  are  the 
elements  of  the  set  which  the  chart  is  on)  which  are  not  in  the  domain  of  the  chart.  For 
example,  assume  you  want  to  enter  a  binary  relation  which  maps  1  to  2  and  3  to  4  and 
which  maps  no  other  vertices.  This  is  written  in  path  notation  as  (12](34].  The  right 
brackets  after  the  2  and  the  4  signifying  that  the  chart  does  not  map  these  vertices.  Note 
that  if  a  vertex  does  not  explicitly  appear  in  the  path  notation  of  a  chart,  it  is  assumed 
to  not  map  to  any  vertex.  For  example,  if  you  enter  (234]  the  program  assumes  (1](234]. 
This  is  in  contrast  to  cycle  notation  where,  if  a  vertex  does  not  appear,  it  is  assumed  to 
map  to  itself. 


12.3  How  to  enter  a  Boolean  matrix.  Another  way  to  enter  a  binary  relation  into  the 
computer  is  to  type  in  the  Boolean  matrix  representation  of  the  binary  relation.  To  do 
this  hit  the  left  square  bracket  key,  the  enter  a  matrix  command.  You  then  type  in  each 
row  of  the  matrix  starting  with  row  1  and  ending  with  row  i.  The  computer  interprets 
blanks  and  zeros  as  zeros  and  everything  else  as  ones. 

12.4  How  to  invert  a  binary  relation.  One  common  operation  to  perform  on  a  binary 
relation  is  to  form  its  inverse  relation.  To  invert  a  binary  relation  with  this  program,  you 
first  scroll  the  list  so  that  the  relation  you  want  to  invert  is  the  one  in  the  window  with 
the  arrow  pointing  to  it.  Then  hit  I,  the  invert  command.  The  relation  is  then  taken  and 
inverted.  The  original  relation  is  deleted  from  the  list  and  the  new  relation  is  inserted  in 
its  place. 
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12.5  How  to  multiply  two  binary  relations.  Another  common  operation  to  perform 
with  binary  relations  is  to  multiply  them.  In  this  context  multiplication  means  relation 
composition.  To  multiply  two  binary  relations  with  this  program,  first  scroll  the  list  so 
that  the  two  relations  you  want  to  multiply  are  in  the  window  and  the  arrow  is  pointing 
to  the  second  relation.  Then  hit  M,  the  multiply  command.  The  two  relations  are  then 
taken  and  multiplied  (composed).  Then  the  two  original  relations  are  deleted  from  the  list 
and  their  product  is  inserted  in  their  place. 

12.6  How  to  copy  a  binary  relation.  Sometimes  you  will  want  to  enter  the  same 
binary  relation  several  times.  This  would  occur,  for  example,  if  you  wanted  to  find  the 
integer  powers  of  a  binary  relation.  Instead  of  entering  the  relation  in  by  hand  repeatedly, 
you  can  hit  C,  the  copy  command.  When  you  use  the  copy  command,  a  copy  is  made 
of  the  relation  in  the  window  with  the  arrow  pointing  to  it.  This  copy  is  then  inserted 
into  the  list  immediately  after  the  original.  For  example,  if  you  enter  the  binary  relation 
(123)(ab),  then  hit  C  eight  times,  you  get  eight  copies  of  the  relation.  If  you  then  hit  M, 
the  multiply  command,  you  get  the  relation  squared,  then  cubed,  etcetera.  Continuing, 
you  see  that  the  seventh  power  is  the  same  as  the  first  power.  Thus  there  are  six  different 
relations  and  the  order  of  this  particular  binary  relation  is  six. 

12.7  How  to  delete  a  binary  relation.  Sometimes  you  will  want  to  delete  one  of 
the  binary  relations  on  the  list.  Perhaps  you  entered  the  path  incorrectly.  To  delete  a 
particular  binary  relation,  scroll  the  list  so  that  the  binary  relation  you  want  to  delete  is 
the  one  in  the  window  with  the  arrow  pointing  to  it.  Then  hit  D,  the  delete  command, 
and  it  will  be  deleted  from  the  list.  Any  binary  relations  below  it  on  the  list  will  be  moved 
up. 

12.8  The  grid  command.  Sometimes  when  a  binary  relation  is  displayed  as  an  image 
it  is  hard  to  tell  from  the  display  what  vertices  are  mapped.  For  example,  if  you  enter  the 
relation  (fgh),  from  the  image  it  is  hard  to  tell  if  f  maps  to  f  or  to  g  or  to  h.  Now  if  I  hit 
G,  the  grid  command,  a  grid  is  superimposed  over  the  image  making  it  easier  to  find  each 
pixel’s  coordinates.  And  if  you  hit  G  again,  the  grid  is  removed. 

12.9  The  exit  command.  To  exit  the  program  and  return  to  DOS,  hit  E,  the  exit 
command,  and  the  program  will  terminate  execution. 


13.  Error  Conditions  (Listed  alphabetically) 

0  is  greater  than  OPOINT.  This  error  should  never  occur.  If  it  does,  it  means  that 
there  is  a  problem  in  the  computer  hardware  or  software. 

At  the  bottom  of  the  list.  This  error  occurs  if  you  hit  the  plus  key  when  the  list  is 
scrolled  up  to  the  last  relation  on  the  list  and  can  scroll  no  further. 
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At  the  top  of  the  list.  This  error  occurs  if  you  hit  the  minus  key  when  the  list  is  scrolled 
down  to  the  top  of  the  list  and  can  scroll  no  further. 

At  the  top  of  the  list.  There  is  no  chart  here  to  delete.  This  error  occurs  if  you 
try  to  delete  a  relation  at  the  top  of  the  list,  where  there  is  no  relation. 

At  the  top  of  the  list.  There  is  no  relation  to  copy  here.  This  error  occurs  if  you 
try  to  copy  a  relation  at  the  top  of  the  list,  where  there  is  no  relation. 

At  the  top  of  the  list.  There  is  no  relation  to  invert  here.  This  error  occurs  if  you 
try  to  invert  a  relation  at  the  top  of  the  list,  where  there  is  no  relation. 

BPOINT  is  greater  than  MPOINT.  This  error  should  never  occur.  If  it  does,  it  means 
that  there  is  a  problem  in  the  computer  hardware  or  software. 

Error.  Expected  a  “(”  instead  of  a  “  ”.  This  error  occurs  when  the  path  notation 
you  enter  contains  an  error.  Specifically,  the  computer  expected  a  (. 

Error.  Expected  a  vertex  instead  of  a  This  error  occurs  when  the  path  notation 
you  enter  contains  an  error.  Specifically,  the  computer  expected  a  vertex,  that  is  a  1,  2,  3, 
...,  g,  h,  or  i. 

Error.  Expected  a  vertex,  or  “]”  instead  of  This  error  occurs  when  the 

path  notation  you  enter  contains  an  error.  Specifically,  the  computer  expected  a  vertex, 
that  is  a  1,  2,  3,  ...,  g,  h,  i,  or  a  ),  or  a  ]. 

Error.  Image  has  already  been  related  to  by  a  preimage.  This  error  occurs  when 
the  path  notation  you  enter  contains  an  error.  Specifically,  the  image  you  entered  has 
already  been  related  to  by  a  preimage. 

Error.  Image  vertex  is  less  than  1.  This  error  occurs  when  the  path  notation  you 
enter  contains  an  error.  Specifically,  the  image  you  entered  is  less  than  1. 

Error.  Image  vertex  is  too  large.  This  error  occurs  when  the  path  notation  you  enter 
contains  an  error.  Specifically,  the  image  you  entered  is  too  large. 

Error.  Preimage  has  already  been  related  to  an  image.  This  error  occurs  when 
the  path  notation  you  enter  contains  an  error.  Specifically,  the  preimage  you  entered  has 
already  been  related  to  an  image. 

Error.  Preimage  vertex  is  less  than  1.  This  error  occurs  when  the  path  notation  you 
enter  contains  an  error.  Specifically,  the  preimage  you  entered  is  less  than  1. 

Error.  Preimage  vertex  is  too  large.  This  error  occurs  when  the  path  notation  you 
enter  contains  an  error.  Specifically,  the  preimage  you  entered  is  too  large. 

Error.  You  cannot  end  with  a  “(”.  This  error  occurs  when  the  path  notation  you 
enter  contains  an  error.  Specifically,  the  path  you  entered  ended  with  a  (. 

Error.  You  cannot  end  with  a  vertex.  This  error  occurs  when  the  path  notation  you 
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enter  contains  an  error.  Specifically,  the  path  you  entered  ended  with  a  vertex,  that  is  a 
1,  2,  3,  ...,  g,  h,  or  i. 

Error.  You  need  two  charts  to  multiply.  This  error  occurs  when  you  try  to  multiply 
two  relations,  but  there  are  not  two  relation  to  multiply  displayed  in  the  window. 

Length  of  PATH  is  less  than  3*NVERT.  This  error  should  never  occur.  If  it  does,  it 
means  that  there  is  a  problem  in  the  computer  hardware  or  software. 

NVERT  is  greater  than  35.  This  error  should  never  occur.  If  it  does,  it  means  that 
there  is  a  problem  in  the  computer  hardware  or  software. 

NVERT  is  greater  than  MVERT.  This  error  should  never  occur.  If  it  does,  it  means 
that  there  is  a  problem  in  the  computer  hardware  or  software. 

OPOINT  is  greater  than  BPOINT.  This  error  should  never  occur.  If  it  does,  it  means 
that  there  is  a  problem  in  the  computer  hardware  or  software. 

OPOINT  is  greater  than  MPOINT.  This  error  should  never  occur.  If  it  does,  it  means 
that  there  is  a  problem  in  the  computer  hardware  or  software. 

OPOINT  is  less  than  0.  This  error  should  never  occur.  If  it  does,  it  means  that  there 
is  a  problem  in  the  computer  hardware  or  software. 

The  list  is  full.  This  error  occurs  when  you  try  to  enter  a  relation  into  the  list  when 
there  already  exists  99  relations  (the  maximum)  in  the  list. 

Your  selection  is  not  on  the  menu.  This  error  occurs  when  you  hit  a  key  on  the 
keyboard  that  does  not  correspond  to  a  command  listed  on  the  menu. 
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******************** 

******************** 

******************** 

SUBROUTINE  HALT  (TEXT) 

1;***************************************************************^ 
t  THIS  SUBROUTINE  STOPS  PROGRAM  EXECUTION  WHEN  A  FATAL  ERROR  IS 
1=  DETECTED. 

*************** . 

*************** 

I:  DICTIONARY 


*  TEXT  THE  TEXT  WHICH  DESCRIBES  TO  THE  USER  THE  FATAL  ERROR  * 

*  WHICH  OCCURED.  * 

*******************************************************.':*************** 

***************************************************** ’^  *************** 
BEGIN  VARIABLE  SPECIFICATION.  * 

********************************************************************* 
CHARACTER* ( * )  TEXT 

********************************************************************** 

*  END  VARIABLE  SPECIFICATION.  * 

********************************************************************** 

WRITE  (6,  100)  TEXT 
100  FORMAT  (IX,  'Fatal  error.  A) 

STOP 

END 

********************************************************************** 

********************************************************************** 

********************************************************************** 

SUBROUTINE  PCONV  (MATRIX,  NVERT,  PATH) 
********************************************************************** 

*  THIS  SUBROUTINE  CONVERTS  A  BOOLEAN  MATRIX  INTO  PATH  NOTATION.  * 

********************************************************************** 
********************************************************************** 

*  DICTIONARY  * 


CCONV  THE  ARRAY  WHICH  CONVERTS  A  POSITIVE  INTEGER  INTO  A 
CHARACTER. 

CHART  THE  VARIABLE  WHICH  INDICATES  IF  THE  GIVEN  BOOLEAN 
MATRIX  IS  A  CHART. 

CHARTA  THE  CHART  STORED  AS  AN  ARRAY  OF  INTEGERS. 

COLUMN  A  COLUMN  OF  A  BOOLEAN  MATRIX. 

FIRST  THE  FIRST  VERTEX  IN  A  CYCLE. 

MATRIX  THE  BOOLEAN  MATRIX  WHICH  IS  CONVERTED  INTO  PATH 
NOTATION. 

MVERT  THE  MAXIMUM  NUMBER  OF  VERTICIES  THAT  THIS  SUBROUTINE  CAN 
HANDLE. 

NTRUES  THE  NUMBER  OF  TRUES  IN  A  ROW  OR  COLUMN  OF  A  BOOLEAN 
MATRIX. 

NVERT  THE  NUMBER  OF  VERTICIES  IN  THE  BOOLEAN  MATRIX. 

PATH  THE  CHART  CONVERTED  INTO  PATH  NOTATION. 

POS  THE  POSITION  POINTER  INDICATING  THE  CHARACTER  IN  THE 

PATH  WHICH  IS  CURRENTLY  BEING  DETERMINED. 

ROW  A  ROW  OF  A  BOOLEAN  MATRIX. 

START  THE  LOGICAL  VARIABLE  WHICH  INDICATES  IF  THE  VERTEX  IS 
THE  START  OF  A  PROPER  PATH. 

VERTEX  AN  ELEMENT  IN  THE  SET  WHICH  THE  BINARY  RELATION  IS  ON. 

WRITTN  THE  ARRAY  WHICH  INDICATES  IF  A  GIVEN  VERTEX  HAS  BEEN 
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*  WRITTEN  IN  THE  PATH. 
************************************** 
******************************** ****^* 

*  BEGIN  PARAMETER  SPECIFICATION  AND  INITIALIZATION, 
******************* **********************^^^*^^^^^^^ 

INTEGER  MVERT 

PARAMETER  (MVERT  =  35) 

*************************************^**^^^^^^^^^^^^ 

*  END  PARAMETER  SPECIFICATION  AND  INITIALIZATION. 
*************************************^ 
********************************* ****^ 

*  BEGIN  VARIABLE  SPECIFICATION. 
******************************************^^. 


CHARACTER*!  CCONV  ( 

LOGICAL*!  CHART 

INTEGER  CHARTA 

INTEGER  COLUMN 

INTEGER  FIRST 

INTEGER  NVERT 

LOGICAL*!  MATRIX 

INTEGER  NTRUES 

CHARACTER* ( * )  PATH 

INTEGER  POS 

INTEGER  ROW 

LOGICAL*!  START 

INTEGER  VERTEX 

LOGICAL*!  WRITTN 

**********************************^^^^ 
*  END  VARIABLE  SPECIFICATION. 
*********************************^^^^^ 


CCONV  (MVERT) 

CHART 

CHARTA  (MVERT) 

COLUMN 

FIRST 

NVERT 

MATRIX  (NVERT,  NVERT) 

NTRUES 

PATH 

POS 

ROW 

START 

VERTEX 

WRITTN  (MVERT) 
***************: 


*  BEGIN  VARIABLE  INITIALIZATION. 
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CCONV  (28)  =  's' 

CCONV  (29)  =  't' 

CCONV  (30)  =  'u' 

CCONV  (31)  =  'V' 

CCONV  (32)  =  'w' 

CCONV  (33)  =  'x' 

CCONV  (34)  =  'y' 

CCONV  (35)  =  'Z' 

PATH  =  '  ' 

POS  =  1 

DO  100  VERTEX  =  1,  MVERT 

WRITTN  (VERTEX)  =  .FALSE. 

100  CONTINUE 

******************************************************************** 
END  VARIABLE  INITIALIZATION.  * 

******************************************************************** 
IF  (NVERT  .GT.  MVERT)  CALL  HALT  ('NVERT  is  greater  than  MVERT.') 
IF  (LEN  (PATH)  .LT.  (3  *  NVERT))  CALL  HALT 
+  ('Length  of  PATH  is  less  than  3  *  NVERT.') 

******************************************************************** 
BEGIN  DETERMINING  IF  THE  MATRIX  IS  A  CHART.  * 

******************************************************************** 
CHART  =  .TRUE. 

DO  300  ROW  =  1,  NVERT 
CHART A  (ROW)  =  0 
NTRUES  =  0 

DO  200  COLUMN  =  1,  NVERT 

IF  (MATRIX  (ROW,  COLUMN))  THEN 
NTRUES  =  NTRUES  +  1 
CHARTA  (ROW)  =  COLUMN 
END  IF 

200  CONTINUE 

IF  (NTRUES  .GT.  1)  CHART  =  .FALSE. 

300  CONTINUE 

DO  500  COLUMN  =  1,  NVERT 
NTRUES  =  0 

DO  400  ROW  =  1,  NVERT 

IF. (MATRIX  (ROW,  COLUMN))  THEN 
NTRUES  =  NTRUES  +  1 
END  IF 


400  CONTINUE 

IF  (NTRUES  .GT.  1)  CHART  =  .FALSE. 

500  CONTINUE 

********************************************************************** 
*  END  DETERMINING  IF  THE  MATRIX  IS  A  CHART.  * 


DO  800  COLUMN  =  1,  NVERT 
START  =  .TRUE. 

DO  600  ROW  =  1,  NVERT 

IF  (MATRIX  (ROW,  COLUMN))  START  =  .FALSE. 
600  CONTINUE 

IF  (START)  THEN 

VERTEX  =  COLUMN 
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PATH  ( POS : POS )  =  '  (  ' 

POS  =  POS  +  1 

700  CONTINUE 

PATH  (POS: POS)  =  CCONV  (VERTEX) 

POS  =  POS  +  1 

WRITTN  (VERTEX)  =  .TRUE. 

VERTEX  =  CHARTA  (VERTEX) 

IF  (VERTEX  .NE.  0)  GO  TO  700 
PATH  (POS: POS)  =  ']' 

POS  =  POS  +  1 

********************************************************************** 

*  BEGIN  ERASING  A  LENGTH  1  PROPER  PATH.  * 

********************************************************************** 

IF  (PATH  (POS  -  3:POS  -  3)  .EQ.  '(') 

+  THEN 

PATH  (POS  *“  3:  POS  -  1)  =  '  ' 

POS  =  POS  -  3 
END  IF 

********************************************************************** 

*  END  ERASING  A  LENGTH  1  PROPER  PATH-  * 

********************************************************************** 

END  IF 

800  CONTINUE 

********************************************************************** 

*  END  GENERATING  THE  NILPOTENT  PART  OF  THE  CHART.  * 

********************************************************************** 
********************************************************************** 

*  BEGIN  GENERATING  THE  PERMUTATION  PART  OF  THE  CHART.  * 

********************************************************************** 

DO  1000  ROW  =  1,  NVERT 

IF  (.NOT.  WRITTN  (ROW))  THEN 
FIRST  =  ROW 
VERTEX  =  ROW 
PATH  (POS: POS)  =  '(' 

POS  =  POS  +  1 

900  CONTINUE 

PATH  (POS: POS)  =  CCONV  (VERTEX) 

POS  =  POS  +  1 

WRITTN  (VERTEX)  =  .TRUE. 

VERTEX  =  CHARTA  (VERTEX) 

IF  (VERTEX  .NE.  FIRST)  GO  TO  900 
PATH  (POS: POS)  =  ')' 

POS  =  POS  +  1 
END  IF 

1000  CONTINUE 


END  GENERATING  THE  PERMUTATION  PART  OF  THE  CHART. 


IF  (PATH  .EQ.  '  ')  PATH  =  '(!]' 

99999  CONTINUE 
RETURN 
END 

********************************************************************** 
:^********************************************************************* 
^4;******************************************************************** 
:fc:^******************************************************************** 
:fc********************************************************************* 
********************************************************************** 
SUBROUTINE  RELATE  (IMAGE,  MATRIX,  MESAGE,  NVERT,  PREIM) 
********************************************************************** 
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*  THIS  SUBROUTINE  RELATES  THE  PREIMAGE  TO  THE  IMAGE  IN  THE  GIVEN 

*  CHART . 

********************************************************************* 

********************************************************************* 

*  DICTIONARY 

* 

*  COLUMN  A  COLUMN  OF  A  BOOLEAN  MATRIX. 

*  IMAGE  THE  VERTEX  TO  WHICH  THE  CHART  MOVES  THE  PREIMAGE. 

*  MATRIX  THE  BOOLEAN  MATRIX  IN  WHICH  THE  PREIMAGE  AND  THE  IMAGE 

*  ARE  RELATED. 

*  MESAGE  A  MESSAGE  FOR  THE  USER. 

*  NVERT  THE  NUMBER  OF  VERTICIES  IN  THE  BOOLEAN  MATRIX. 

*  PREIM  THE  VERTEX  WHICH  THE  CHART  MOVES  TO  THE  IMAGE. 

*  ROW  A  ROW  OF  A  BOOLEAN  MATRIX. 


IF  (MESAGE  .NE.  '  ')  GO  TO  99999 


*  BEGIN  DETERMINING  IF  PREIM  AND  IMAGE  ARE  VALID  VERTICIES. 


IF  (PREIM  .LT.  1)  THEN 

MESAGE  =  'Error.  Preimage  vertex  is  less  than  1.' 
GO  TO  99999 
END  IF 

IF  (PREIM  .GT.  NVERT)  THEN 

MESAGE  =  'Error.  Preimage  vertex  is  too  large.' 

GO  TO  99999 
END  IF 

IF  (IMAGE  .LT.  1)  THEN 

MESAGE  =  'Error.  Image  vertex  is  less  than  1.' 

GO  TO  99999 
END  IF 

IF  (IMAGE  .GT.  NVERT)  THEN 

MESAGE  =  'Error.  Image  vertex  is  too  large.' 

GO  TO  99999 
END  IF 


END  DETERMINING  IF  PREIM  AND  IMAGE  ARE  VALID  VERTICIES. 


*  BEGIN  VERIFYING  THAT  THE  PREIMAGE  HAS  NOT  BEEN  PREVIOUSLY 

*  RELATED  TO  AN  IMAGE. 


DO  100  COLUMN  =  1,  NVERT 

IF  (MATRIX  (PREIM,  COLUMN) )  THEN 

MESAGE  =  'Error.  Preimage  has  already  been  '  // 
+  'related  to  an  image.' 

GO  TO  99999 
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ENDIF 

100  CONTINUE 

%********************************************************************* 

*  END  VERIFYING  THAT  THE  PREIMAGE  HAS  NOT  BEEN  PREVIOUSLY  * 

^  RELATED  TO  AN  IMAGE.  * 

*********************************************************** ^* ******** 
***********************************************************^**^^^^^^^^ 
■c  BEGIN  VERIFYING  THAT  THE  IMAGE  HAS  NOT  BEEN  PREVIOUSLY  * 

*  RELATED  TO  BY  A  PREIMAGE.  * 

V************************************************jt******************** 

DO  200  ROW  =  1,  NVERT 

IF  (MATRIX  (ROW,  IMAGE) )  THEN 

MESAGE  =  'Error.  Image  has  already  '  // 

+  'been  related  to  by  a  preimage.' 

GO  TO  99999 
END  IF 

200  CONTINUE 

*************************************************^*^*^**^^^^^^^^^^^^^^ 

*  END  VERIFYING  THAT  THE  IMAGE  HAS  NOT  BEEN  PREVIOUSLY  RELATED  * 

*  TO  BY  A  PREIMAGE.  * 

***************************************************^*^^j^^^^^^^^^^^^^^^ 

MATRIX  (PREIM,  IMAGE)  =  .TRUE. 

99999  CONTINUE 
RETURN 
END 

****************************************************************^*^*^^ 

***********************************************jt**^^*^^^^^^^^^^^^^^^^^ 


SUBROUTINE  BMCONV  (MATRIX,  MESAGE,  NVERT,  PATH) 
****************************************^^*^^^^^^^^^^^^^^^^^^^^^^^ 

*  THIS  SUBROUTINE  CONVERTS  A  CHART  IN  PATH  NOTATION  INTO  A  CHART 

*  STORED  AS  A  BOOLEAN  MATRIX. 


*  DICTIONARY 


COLUMN 

DONE 

FIRST 

ICONV 

IMAGE 

MATRIX 

MESAGE 

NVERT 

PATH 


PREIM 

ROW 

SUB 

TEMP 


A  COLUMN  OF  A  BOOLEAN  MATRIX. 

THE  LOGICAL  VARIABLE  WHICH  INDICATES  IF  THE  ANALYSIS  OF 
THE  PATH  IS  COMPLETE. 

THE  FIRST  VERTEX  IN  A  CYCLE  OR  PROPER  PATH  OF  THE  CHART. 
THE  ARRAY  WHICH  CONVERTS  A  CHARACTER  INTO  A  POSITIVE 
INTEGER. 

THE  VERTEX  TO  WHICH  THE  CHART  MOVES  THE  PREIMAGE. 

THE  BOOLEAN  MATRIX  INTO  WHICH  THE  PATH  IS  CONVERTED. 

A  MESSAGE  FOR  THE  USER. 

THE  NUMBER  OF  VERTICIES  IN  THE  BOOLEAN  MATRIX. 

THE  CHART  IN  PATH  NOTATION  WHICH  IS  CONVERTED  INTO  A 
BOOLEAN  MATRIX. 

THE  POSITION  POINTER  INDICATING  THE  CHARACTER  IN  THE 
PATH  WHICH  IS  CURRENTLY  BEING  ANALYZED. 

THE  VERTEX  WHICH  THE  CHART  MOVES  TO  THE  II-IAGE. 

A  ROW  OF  A  BOOLEAN  MATRIX. 

THE  SUBSCRIPT  FOR  THE  ICONV  ARRAY. 

A  TEMPORARY  STORAGE  LOCATION  FOR  A  CHARACTER. 


*****************-k-k-k*-k*-ic),-)c-k->;-)fk-k*-k*-k-k***-k*-k**-k:k-k*-k**-kic-k-),-k*ic-k***-k**it**** 
*  BEGIN  VARIABLE  SPECIFICATION.  * 
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INTEGER 

COLUMN 

LOGICAL*! 

DONE 

INTEGER 

FIRST 

INTEGER 

ICONV 

INTEGER 

IMAGE 

INTEGER 

NVERT 

LOGICAL*! 

MATRIX 

CHARACTER* (*) 

MESAGE 

CHARACTER* (*) 

PATH 

INTEGER 

POS 

INTEGER 

PREIM 

INTEGER 

ROW 

INTEGER 

SUB 

CHARACTER* 1 

TEMP 

*  END  VARIABLE  SPECIFICATION.  ***** 

************************************ *************^j^^^^^^^^^^^^^^^^^^^^ 

*  BEGIN  VARIABLE  INITIALIZATION.  * 

DONE  =  .FALSE.  ***************** 

DO  100  SUB  =  0,  255 
ICONV  (SUB)  =  0 
100  CONTINUE 


TEMP  = 

=  '1' 

ICONV 

(I CHAR 

(TEMP) ) 

= 

1 

TEMP  = 

=  '2' 

ICONV 

(I CHAR 

(TEMP) ) 

= 

2 

TEMP  = 

=  '3' 

ICONV 

(I CHAR 

(TEMP) ) 

= 

3 

TEMP  = 

=  /4/ 

ICONV 

(I CHAR 

(TEMP) ) 

= 

4 

TEMP  = 

=  '5' 

ICONV 

(I CHAR 

(TEMP) ) 

5 

TEMP  = 

=  '6' 

ICONV 

(ICHAR 

(TEMP) ) 

= 

6 

TEMP  = 

=  /y/ 

ICONV 

(ICHAR 

(TEMP) ) 

7 

TEMP  = 

:  '8' 

ICONV 

(ICHAR 

(TEMP) ) 

= 

8 

TEMP  = 

ICONV 

(ICHAR 

(TEMP) ) 

= 

9 

TEMP  = 

'a' 

ICONV 

(ICHAR 

(TEMP) ) 

= 

10 

TEMP  = 

'b' 

ICONV 

( ICHAR 

(TEMP) ) 

= 

11 

TEMP  = 

'  c' 

ICONV 

(ICHAR 

(TEMP)  ) 

12 

TEMP  = 

'd' 

ICONV 

(ICHAR 

(TEMP)  ) 

= 

13 

TEMP  = 

ICONV 

(ICHAR 

(TEMP)  ) 

= 

14 

TEMP  = 

/f  / 

ICONV 

(ICHAR 

(TEMP)  ) 

15 

TEMP  = 

'g' 

ICONV 

(ICHAR 

(TEMP)  ) 

= 

16 

TEMP  = 

ICONV 

(ICHAR 

(TEMP)  ) 

S= 

17 

TEMP  = 

'i' 
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ICONV 

(ICHAR 

(TEMP)  ) 

= 

18 

TEMP  = 

'  j  ' 

ICONV 

(ICHAR 

(TEMP)  ) 

= 

19 

TEMP  = 

'k' 

ICONV 

(ICHAR 

(TEMP)  ) 

20 

TEMP  = 

'1' 

ICONV 

(ICHAR 

(TEMP)  ) 

= 

21 

TEMP  = 

'm' 

ICONV 

(ICHAR 

(TEMP)  ) 

= 

22 

TEMP  = 

'n' 

ICONV 

(ICHaR 

(TEMP) ) 

23 

TEMP  = 

'o' 

ICONV 

(ICHAR 

(TEMP) ) 

= 

24 

TEMP  = 

'p' 

ICONV 

(ICHAR 

(TEMP) ) 

= 

25 

TEMP  = 

'q' 

ICONV 

(ICHAR 

(TEMP) ) 

= 

26 

TEMP  = 

'r' 

ICONV 

(ICHAR 

(TEMP) ) 

= 

27 

TEMP  = 

:  's' 

ICONV 

(ICHAR 

(TEMP) ) 

28 

TEMP  = 

:  't' 

ICONV 

(ICHAR 

(TEMP) ) 

= 

29 

TEMP  = 

:  'u' 

ICONV 

(ICHAR 

(TEMP) ) 

= 

30 

TEMP  = 

:  'V' 

ICONV 

(ICHAR 

(TEMP) ) 

31 

TEMP  = 

:  /W' 

ICONV 

(ICHAR 

(TEMP) ) 

= 

32 

TEMP  = 

:  'X' 

ICONV 

(ICHAR 

(TEMP) ) 

= 

33 

TEMP  = 

=  'y' 

ICONV 

(ICHAR 

(TEMP) ) 

= 

34 

TEMP  = 

=  'z' 

ICONV 

(ICHAR 

(TEMP) ) 

= 

35 

DO  300  ROW  = 

1,  NVERT 

DO  2  00  COLUMN  1,  NVERT 

MATRIX  (ROW,  COLUMN)  =  .FALSE. 

200  CONTINUE 

300  CONTINUE 
POS  =  1 

********************************************************************** 
*  END  VARIABLE  INITIALIZATION.  * 

********************************************************************** 
IF  (NVERT  .GT.  35)  CALL  HALT  ('NVERT  is  greater  than  35.') 

IF  (MESAGE  .NE.  '  ')  GO  TO  99999 

400  CONTINUE 

********************************************************************** 
IF  (PATH  (POS: POS)  .NE.  '(')  THEN 

MESAGE  =  'Error.  Expected  a  "("  instead  of  a  "'  // 

+  PATH  (POS: POS)  // 

GO  TO  99999 
END  IF 

IF  (POS  .EQ.  LEN  (PATH))  THEN 

MESAGE  =  'Error.  You  cannot  end  with  a  "(".' 

GO  TO  99999 
END  IF 

POS  =  POS  +  1 

********************************************************************** 
FIRST  =  ICONV  (ICHAR  (PATH  (POS:POS))) 
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IF  (FIRST  .EQ.  0)  THEN 

MESAGE  ==  'Error.  Expected  a  vertex  '  // 

+  'instead  of  a  '  //  PATH  (POS:POS)  // 

GO  TO  99999 
END  IF 

IF  (POS  .EQ.  LEN  (PATH))  THEN 

MESAGE  =  'Error.  You  cannot  end  with  a  vertex.' 

GO  TO  99999 
END  IF 

POS  =  POS  t  1 

************************************************>********************* 
PREIM  =  FIRST 

IMAGE  =  ICONV  (ICHAR  (PATH  (POS:POS))) 

500  IF  (IMAGE  . NE .  0)  THEN 

CALL  RELATE  (IMAGE,  MATRIX,  MESAGE,  NVERT,  PREIM) 

IF  (MESAGE  .NE,  '  ')  GO  TO  ,99999 

IF  (POS  .EQ.  LEN  (PATH))  THEN 

MESAGE  =  'Error.  You  cannot  end  with  '  // 

+  'a  vertex. ' 

GO  TO  99999 
END  IF 

POS  =  POS  +  1 
PREIM  =  IMAGE 

IMAGE  =  ICONV  (ICHAR  (PATH  (POSiPOS))) 

GO  TO  500 
END  IF 


I F  ( PATH  ( POS : POS )  . EQ .  ' ) ' )  THEN 

CALL  RELATE  (FIRST,  MATRIX,  MESAGE,  NVERT,  PREIM) 

IF  (MESAGE  .NE.  '  ')  GO  TO  99999 

POS  =  POS  +  1 

ELSE  IF  (PATH  (POS: POS)  .EQ.  ']')  THEN 
POS  =  POS  +  1 

ELSE 

MESAGE  =  'Error.  Expected  a  vertex,  ")",  '  // 

+  'or  '*]"  instead  of  '  //  PATH  (POS:  POS)  //  '  ' 

GO  TO  99999 
END  IF 

IF  (POS  .GT.  LEN  (PATH))  THEN 
DONE  =  .TRUE, 

ELSE 

IF  (PATH  (POS:)  .EQ.  '  ')  DONE  -  .TRUE. 

END  IF 

IF  (.NOT.  DONE)  GO  TO  400 
99999  CONTINUE 
RETURN 
END 

********************************************************************** 

********************************************************************** 

********************************************************************** 

********************************************************************** 

********************************************************************** 

********************************************************************** 

SUBROUTINE  DELETE  (BPOINT,  LIST,  MESAGE,  MPOINT,  NVERT,  OPOINT) 
********************************************************************** 

*  THIS  SUBROUTINE  DELETES  A  BOOLEAN  MATRIX  FROM  THE  LIST  OF  * 

*  BOOLEAN  MATRICIES.  * 

********************************************************************** 
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DICTIONARY 


BPOINT  THE  POINTER  TO  THE  BOTTOM  OF  THE  LIST. 

COLUMN  A  COLUMN  OF  A  BOOLEAN  MATRIX. 

LIST  THE  LIST  OF  BOOLEAN  MATRICES. 

MESAGE  A  MESSAGE  FOR  THE  USER. 

MPOINT  THE  MAXIMUM  VALUE  OF  BPOINT  AND  OPOINT. 

NVERT  THE  NUMBER  OF  VERTICIES  IN  EACH  BOOLEAN  MATRIX  IN  THE 
LIST. 

OPOINT  THE  POINTER  TO  THE  OPERAND  OF  THE  LIST. 

ROW  A  ROW  OF  A  BOOLEAN  MATRIX. 

SUB  THE  SUBSCRIPT  FOR  THE  LIST  ARRAY. 

********************************************************************** 
********************************************************************** 

*  BEGIN  VARIABLE  SPECIFICATION.  * 

******************************************  *  *  ************************** 

INTEGER  BPOINT 

INTEGER  COLUMN 

INTEGER  MPOINT 

INTEGER  NVERT 

LOGICAL*!  LIST  (MPOINT,  NVERT,  NVERT) 

CHARACTER* ( * )  MESAGE 

INTEGER  OPOINT 

INTEGER  ROW 

INTEGER  SUB 

*  END  VARIABLE  SPECIFICATION.  * 

********************************************************************** 

IF  (MESAGE  .NE.  '  ')  GO  TO  99999 

******************************************************************j^*j^j^ 

*  BEGIN  CHECKING  POINTER  RELATIONSHIPS.  * 

*********************************************************************^ 

IF  (0  .GT.  OPOINT)  CALL  HALT  ('0  is  greater  than  OPOINT.') 
IF  (OPOINT  .GT.  BPOINT)  CALL  HALT 
+  ('OPOINT  is  greater  than  BPOINT.') 

IF  (BPOINT  .GT.  MPOINT)  CALL  HALT 
+  ('BPOINT  is  greater  than  MPOINT.') 

**********************************:fe*********************************** 

*  END  CHECKING  POINTER  RELATIONSHIPS,  * 

********************************************************^***^^^^^^^^^^ 

IF  (OPOINT  .GT.  0)  THEN 

DO  300  SUB  =  OPOINT,  BPOINT  -  1 
DO  200  ROW  =  1,  NVERT 

DO  100  COLUMN  =  1,  NVERT 

LIST  ( SUB ,  ROW ,  COLUMN)  = 

+  LIST 


100  CONTINUE 

200  CONTINUE 

300  CONTINUE 


(SUB  +  1,  ROW,  COLUMN) 


OPOINT  = 
BPOINT  = 


OPOINT  - 
BPOINT  - 


ELSE 


// 


MESAGE  =  'At  the  top  of  the  list.  There  is  no  chart 
+  'here  to  delete.' 

END  IF 

99999  CONTINUE 
RETURN 
END 

********************************************************************** 

**************************************************************^^^^*^^^ 
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*********************************************************************’ 
INTERFACE  TO  INTEGER*2  FUNCTION  GETCHASM  () 

END  *************************** 

*********************************************************************’ 
*********************************************************************’ 
*** ******************************************************************* 
*********************************************************************’ 
SUBROUTINE  INSERT  (BPOINT,  LIST,  MATRIX,  MESAGE,  MPOINT,  NVERT, 
+  OPOINT)  *************** 

*  THIS  SUBROUTINE  INSERTS  A  BOOLEAN  MATRIX  INTO  THE  LIST  OF 

*  BOOLEAN  MATRICIES . 

********************************************************************* 


DICTIONARY 


BPOINT  THE  POINTER  TO  THE  BOTTOM  OF  THE  LIST. 

COLUMN  A  COLUMN  OF  A  BOOLEAN  MATRIX. 

LIST  THE  LIST  OF  BOOLEAN  MATRICES. 

MATRIX  THE  MATRIX  WHICH  IS  INSERTED  INTO  THE  LIST. 

MESAGE  A  MESSAGE  FOR  THE  USER. 

MPOINT  THE  MAXIMUM  VALUE  OF  BPOINT  AND  OPOINT. 

NVERT  THE  NUMBER  OF  VERTICIES  IN  EACH  BOOLEAN  MATRIX  IN  THE 
LIST. 

OPOINT  THE  POINTER  TO  THE  OPERAND  OF  THE  LIST. 

ROW  A  ROW  OF  A  BOOLEAN  MATRIX. 

SUB  THE  SUBSCRIPT  FOR  THE  LIST  ARRAY. 


BEGIN  VARIABLE  SPECIFICATION. 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL*! 

LOGICAL*! 

CHARACTER* ( * ) 

INTEGER 

INTEGER 

INTEGER 


BPOINT 

COLUMN 

MPOINT 

NVERT 

LIST  (MPOINT,  NVERT,  NVERT) 
MATRIX  (NVERT,  NVERT) 

MESAGE 

OPOINT 

ROW 

SUB 


END  VARIABLE  SPECIFICATION. 


IF  (MESAGE  .NE.  '  ')  GO  TO  99999 


BEGIN  CHECKING  POINTER  RELATIONSHIPS. 
**************************************************************** 
IF  (0  .GT.  OPOINT)  CALL  HALT  ('0  is  greater  than  OPOINT.') 
IF  (OPOINT  .GT.  BPOINT)  CALL  HALT 
+  ('OPOINT  is  greater  than  BPOINT.') 

IF  (BPOINT  .GT.  MPOINT)  CALL  HALT 
+  ('BPOINT  is  greater  than  MPOINT.') 


*  END  CHECKING  POINTER  RELATIONSHIPS. 
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********************************************************************** 
IF  (BPOINT  .LT.  MPOINT)  THEN 

DO  300  SUB  =  BPOINT,  OPOINT  +1,-1 
DO  200  ROW  =  1,  NVERT 

DO  100  COLUMN  =  1,  NVERT 

LIST  (SUB  +  1,  ROW,  COLUMN)  = 

+  LIST  (SUB,  ROW,  COLUMN) 

100  CONTINUE 

200  CONTINUE 

300  CONTINUE 

BPOINT  =  BPOINT  +  1 

OPOINT  ==  OPOINT  +  1 

DO  500  ROW  =  1,  NVERT 

DO  400  COLUMN  =  1,  NVERT 

LIST  (OPOINT,  ROW,  COLUMN)  =  MATRIX  (ROW,  COLUMN) 
400  CONTINUE 

500  CONTINUE 

ELSE 

MESAGE  =  'The  list  is  full.' 

END  IF 

99999  CONTINUE 
RETURN 
END 


SUBROUTINE  LISTWR  (LIST,  MATRIX,  MPOINT,  NVERT,  OPOINT,  PATH) 
******************************************************************* 
*  THIS  SUBROUTINE  WRITES  THE  LIST  OF  BOOLEAN  MATRICIES. 


*  DICTIONARY 


*  ARROW  THE  CHARACTER  STRING  WHICH  REPRESENTS  AN  ARROW.  * 

*  COLUMN  A  COLUMN  OF  A  BOOLEAN  MATRIX.  * 

*  LIST  A  LIST  OF  BOOLEAN  MATRICIES.  * 

*  MATRIX  THE  BOOLEAN  MATRIX  WHICH  IS  CONVERTED  INTO  PATH  * 

*  NOTATION.  * 

*  MPOINT  THE  MAXIMUM  VALUE  OPOINT.  * 

*  NVERT  THE  NUMBER  OF  VERTICIES  IN  EACH  BOOLEAN  MATRIX.  * 

*  OPOINT  THE  POINTER  TO  THE  OPERAND  OF  THE  LIST.  * 

*  PATH  THE  BOOLEAN  MATRIX  CONVERTED  INTO  PATH  NOTATION.  * 

*  ROW  A  ROW  OF  A  BOOLEAN  MATRIX.  * 

*  SUB  THE  SUBSCRIPT  FOR  THE  LIST  ARRAY.  * 


BEGIN  VARIABLE  SPECIFICATION. 

I:********************************************************************* 
CHARACTER* 2  ARROW 

INTEGER  COLUMN 

INTEGER  MPOINT 

INTEGER  NVERT 

LOGICAL*!  LIST  (MPOINT,  NVERT,  NVERT) 

LOGICAL*!  MATRIX  (NVERT,  NVERT) 

INTEGER  OPOINT 

CHARACTER*  ( * )  PATH 

INTEGER  ROW 


IF  (MESAGE  .NE.  '  ')  GO  TO  99999 
IF  (0  .LT.  OPOINT)  THEN 
OPOINT  =  OPOINT  -  1 
ELSE  IF  (0  .EQ.  OPOINT)  THEN 

MESAGE  =  'At  the  top  of  the  list,' 

ELSE 

CALL  HALT  ('0  is  greater  than  OPOINT.') 
END  IF 

99999  CONTINUE 
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RETURN 

END 

********************************************************************** 

********************************************************************** 

********************************************************************** 

********************************************************************** 

********************************************************************** 

********************************************************************** 


SUBROUTINE  PLUS  (BPOINT,  MESAGE ,  OPOINT) 

********************************************************************** 

*  THIS  SUBROUTINE  INCREMENTS  THE  OPERAND  POINTER,  IF  POSSIBLE.  * 

********************************************************************** 
********************************************************************** 

*  DICTIONARY  * 

*  * 

*  BPOINT  THE  POINTER  TO  THE  BOTTOM  OF  THE,  LIST,  * 

*  MESAGE  A  MESSAGE  FOR  THE  USER.  * 

*  OPOINT  THE  POINTER  TO  THE  OPERAND  OF  THE  LIST.  * 

********************************************************************** 


********************************************************************** 


*  BEGIN  VARIABLE  SPECIFICATION.  * 

********************************************************************** 

INTEGER  BPOINT 

CHARACTER* ( * )  MESAGE 

INTEGER  OPOINT 

********************************************************************** 

*  END  VARIABLE  SPECIFICATION,  * 

********************************************************************** 

IF  (MESAGE  .NE,  '  ')  GO  TO  99999 

IF  (OPOINT  .LT.  BPOINT)  THEN 
OPOINT  =  OPOINT  +  1 
ELSE  IF  (OPOINT  .EQ.  BPOINT)  THEN 

MESAGE  =  'At  the  bottom  of  the  list, ' 

ELSE 

CALL  HALT  ('OPOINT  is  greater  than  BPOINT.') 

END  IF 

99999  CONTINUE 
RETURN 
END 

********************************************************************** 


********************************************************************** 

********************************************************************** 

********************************************************************** 


********************************************************************** 


SUBROUTINE  UCONV  (STRING) 

********************************************************************** 

*  THIS  SUBROUTINE  CONVERTS  THE  FIRST  CHARACTER  IN  A  STRING,  IF  IT  * 

*  IS  IN  LOWER  CASE,  TO  UPPER  CASE.  * 

^-k-k-k-k-k-k-k-k-k:k-k-k-k-k-k-k'k-k-k-Jfk-kic-)fk-k-k'k-k-k'k-k-k'k'k-k-J:-k-k-k-k-k-k-k-k-k-k-Jfk-k-k-k-Jc-kifk-k-k-k-k-k-k-k-i;^^^‘k‘ie 
********************************************************************** 

*  DICTIONARY  * 

*  * 

*  STRING  THE  CHARACTER  STRING  WHICH  IS  CONVERTED.  * 


********************************************************************** 

*  BEGIN  VARIABLE  SPECIFICATION.  * 

tfc********************************************************************* 

CHARACTER* (* )  STRING 

********************************************************************** 
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*  END  VARIABLE  SPECIFICATION.  * 

********************************************************************** 


IF 

(STRING 

(1 

1) 

.EQ. 

'a') 

STRING 

(1 

1) 

= 

'A' 

IF 

(STRING 

(1 

1) 

.EQ. 

'b') 

STRING 

(1 

1) 

'B' 

IF 

(STRING 

(1 

1) 

.EQ. 

'c') 

STRING 

(1 

1) 

== 

'C' 

IF 

(STRING 

(1 

1) 

.EQ. 

'd') 

STRING 

(1 

1) 

= 

'D' 

IF 

(STRING 

(1 

1) 

.EQ. 

'e') 

STRING 

(1 

1) 

= 

'E' 

IF 

(STRING 

(1 

1) 

.EQ. 

'f') 

STRING 

(1 

1) 

= 

/  p  / 

IF 

(STRING 

(1 

1) 

.EQ. 

'g') 

STRING 

(1 

1) 

= 

'G' 

IF 

(STRING 

(1 

1) 

.EQ. 

'h') 

STRING 

(1 

1) 

= 

'H' 

IF 

(STRING 

(1 

1) 

.EQ. 

'i') 

STRING 

(1 

1) 

'I' 

IF 

(STRING 

(1 

1) 

.EQ. 

'j') 

STRING 

(1 

1) 

= 

'J' 

IF 

(STRING 

(1 

1) 

.EQ. 

'k') 

STRING 

(1 

1) 

= 

'K' 

IF 

(STRING 

(1 

1) 

.EQ. 

'1') 

STRING 

(1 

1) 

'L' 

IF 

(STRING 

(1 

1) 

.EQ. 

'iri') 

STRING 

(1 

1) 

= 

'M' 

IF 

(STRING 

(1 

1) 

.EQ. 

'n') 

STRING 

(1 

,1) 

'N' 

IF 

(STRING 

(1 

1) 

.EQ. 

'o') 

STRING 

(1 

1) 

= 

'O' 

IF 

(STRING 

(1 

1) 

.EQ. 

'p') 

STRING 

(1 

1) 

= 

'P' 

IF 

(STRING 

(1 

1) 

.EQ. 

'q') 

STRING 

(1 

1) 

= 

'Q' 

IF 

(STRING 

(1 

1) 

.EQ. 

'r') 

STRING 

(1 

1) 

'R' 

IF 

(STRING 

(1 

1) 

.EQ. 

's') 

STRING 

(1 

1) 

'S' 

IF 

(STRING 

(1 

1) 

.EQ. 

't') 

STRING 

(1 

1) 

= 

/  ip  / 

IF 

(STRING 

(1 

1) 

.EQ. 

'u') 

STRING 

(1 

1) 

=: 

'U' 

IF 

(STRING 

(1 

1) 

.EQ. 

'V') 

STRING 

(1 

1) 

z=: 

'V' 

IF 

(STRING 

(1 

1) 

.EQ. 

'w') 

STRING 

(1 

1) 

=r 

'W' 

IF 

(STRING 

(1 

1) 

.EQ. 

'X') 

STRING 

(1 

1) 

= 

'X' 

IF 

(STRING 

(1 

1) 

.EQ. 

'y') 

STRING 

(1 

1) 

'Y' 

IF  (STRING 
RETURN 

END 

(1 

1) 

.EQ. 

'z') 

STRING 

(1 

1) 

'Z' 

******************************************************^:jlr>^^^A<^^^<^<^A<AVt‘^<^ 
**************************************  *  *  ****************************** 
*****************************************************^:;i:*************** 
*******************************************************^-A************* 
********************************************************A*^*****A^^**^ 
***************************************************:llr*4:**************** 


PROGRAM  BRC 

*  *  *  *  *  ****************************************************  *  *  *********** 

*  THIS  PROGRAM  WAS  WRITTEN  AT  20:28  ON  29  June  1995  BY  CHRIS  * 

*  EDWARD  DUPILKA,  POST  OFFICE  BOX  1716,  FREDERICKSBURG,  VIRGINIA,  * 

*  22402.  THIS  PROGRAM  IS  A  BINARY  RELATION  CALCULATOR.  * 

********-k***********-k-k-k*-k*****-kit*-k-k**-k-k*******-k**-k**-k-k-k*-ific*ic**-kit**ie*** 


***************-k-k-ki<-)c*-k-lc***-k**-k*-k->:*-)fk-k-k-k*-k***************-k**********-k** 


*  DICTIONARY  * 

*  * 

*  BPOINT  THE  POINTER  TO  THE  BOTTOM  OF  THE  LIST.  * 

*  COLUMN  A  COLUMN  OF  A  BOOLEAN  MATRIX.  * 

*  GETCHASM  THE  FUNCTION  WHICH  GETS  A  CHARACTER  FROM  THE  * 

*  KEYBOARD.  * 

*  GINT  THE  INTEGER  WHICH  REPRESENTS  THE  CHARACTER  GOTTEN  FROM  * 

*  THE  KEYBOARD.  * 

*  GRID  THE  LOGICAL  VARIABLE  WHICH  INDICATES  IF  THE  GRID  IS  * 

*  TURNED  ON  OR  OFF.  * 

*  LIST  THE  LIST  OF  BOOLEAN  MATRICES.  * 

*  MATRIX  A  BOOLEAN  MATRIX.  * 

*  MESAGE  A  MESSAGE  FOR  THE  USER.  * 

*  MPOINT  THE  MAXIMUM  VALUE  OF  BPOINT  AND  OPOINT.  * 

*  NVERT  THE  NUMBER  OF  VERTICIES  IN  EACH  BOOLEAN  MATRIX.  * 

*  OPOINT  THE  POINTER  TO  THE  OPERAND  OF  THE  LIST.  * 

*  PATH  A  BINARY  RELATION  RENDERED  IN  PATH  NOTATION,  IF  * 


A-17 


NSWCDD/MP-95/162 


*  POSSIBLE-  * 

*  POS  A  POSITION  IN  A  STRING.  * 

*  ROW  A  ROW  OF  A  BOOLEAN  MATRIX.  * 

*  RSTR  A  ROW  OF  A  BOOLEAN  MATRIX  IN  STRING  FORM.  * 

*  SELECT  THE  SELECTION  THAT  THE  USER  MADE  FROM  THE  MENU.  * 

*  SUB  A  SUBSCRIPT  FOR  AN  ARRAY.  * 

*  TEXT  THE  TEXT  WHICH  COMPRISES  THE  VIDEO  DISPLAY.  * 

*  VSTRNG  THE  VERTICIES  IN  STRING  FORM.  * 


BEGIN  PARAMETER  SPECIFICATION  AND  INITIALIZATION. 
******************************************************************** 
INTEGER  MPOINT 

PARAMETER  (MPOINT  ^  99) 

INTEGER  NVERT 

PARAMETER  (NVERT  =  18). 


END  PARAMETER  SPECIFICATION  AND  INITIALIZATION. 


BEGIN  VARIABLE  SPECIFICATION.  * 

t******************************************************************^ 


INTEGER 

INTEGER 

INTEGER*2 

INTEGER*2 

LOGICAL*! 

LOGICAL*! 

LOGICAL*! 

CHARACTER*? 0 
INTEGER 

CHARACTER* (3  *  NVERT) 

INTEGER 

INTEGER 

CHARACTER* (NVERT) 
CHARACTER*! 

INTEGER 
CHARACTER* 7 9 
CHARACTER* 3 5 


BPOINT 

COLUMN 

GETCHASM 

GINT 

GRID 

LIST  (MPOINT,  NVERT,  NVERT) 
MATRIX  ( NVERT ,  NVERT ) 

MESAGE 

OPOINT 

PATH 

POS 

ROW 

RSTR 

SELECT 

SUB 

TEXT  (0:NVERT) 

VSTRNG 


BPOINT  =  0 

GRID 

=  .FALSE. 

MESAGE  =  ' 

f 

OPOINT  =  0 

TEXT 

(00)  = 

'( 

Enter  a  path 

1 

'8  9 

a 

b  c  d  e  f  g  h 

i' 

TEXT 

(01)  = 

'[ 

Enter  a  matrix 

1' 

TEXT 

(02)  = 

'C 

Copy 

2' 

TEXT 

(03)  = 

'D 

Delete 

3' 

TEXT 

(04)  = 

'I 

Invert 

4' 

TEXT 

(05)  = 

'M 

Multiply 

5' 

TEXT 

(06)  = 

/  _ 

Scroll  down 

6' 

TEXT 

(07)  = 

'  + 

Scroll  up 

7' 

TEXT 

(08)  = 

'G 

Grid 

8' 

TEXT 

(09)  = 

'E 

Exit 

9' 
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TEXT  (10)  =  '  a' 

TEXT  (11)  =  '  b' 

TEXT  U2)  =  '  c' 

TEXT  (13)  =  '  d' 

TEXT  (14)  =  '  e' 

TEXT  (15)  =  '  f' 

TEXT  (16)  =  '  g' 

TEXT  (17)  =  '  h' 

TEXT  (18)  =  '  i' 


VSTRNG  =  '123456789abcdefghijklmnopqrstuvwxyz' 

*********:lt************************************************************ 


*  END  VARIABLE  INITIALIZATION.  * 

********************************************************************** 


100  CONTINUE 

DO  200  SUB  =  1,  NVERT 
IF  (GRID)  THEN 

TEXT  (SUB)  (26:79)  =  ' aeaaeaaeaaeaaea '  // 

+  ' aeaaeaaeaaeaaeaaeaaeaaeaaeaaeaaeaaeaaea ' 

ELSE 

TEXT  (SUB)  (26:79)  =  '  ' 

END  IF 

200  CONTINUE 

IF  (OPOINT  .GT.  0)  THEN 

DO  400  ROW  =  1,  NVERT 

DO  300  COLUMN  =  1,  NVERT 

IF  (LIST  (OPOINT,  ROW,  COLUMN))  THEN 
POS  =  3  *  COLUMN  +23 

TEXT  (ROW)  (POS:POS  +  2)  =  CHAR  (219) 

+  //  CHAR  (219)  //  CHAR  (219) 

END  IF 

300  CONTINUE 

400  CONTINUE 

END  IF 

WRITE  (6,  500) 

500  FORMAT  (IX) 

DO  700  SUB  =  0,  NVERT 

WRITE  (6,  600)  TEXT  (SUB) 

600  FORMAT  (IX,  A) 

700  CONTINUE 

CALL  LISTWR  (LIST,  MATRIX,  MPOINT,  NVERT,  OPOINT,  PATH) 

IF  (MESAGE  .EQ.  '  ')  THEN 

WRITE  (6,  800)  MESAGE 
800  FORMAT  (IX,  A,  /,  IX,  \) 

ELSE 

WRITE  (6,  900)  MESAGE,  '\a'C 
900  FORMAT  (IX,  A,  A,  /,  IX,  \) 

END  IF 
MESAGE  =  '  ' 

********************************************************************** 

*  BEGIN  GETTING  A  CHARACTER  FROM  THE  KEYBOARD.  * 

********************************************************************** 

1000  CONTINUE 

GINT  =  GETCHASM  () 

IF  (GINT  .EQ.  0)  GO  TO  1000 
IF  (GINT  .LT.  256)  THEN 

SELECT  =  CHAR  (GINT) 

ELSE 

SELECT  =  CHAR  (0) 

END  IF 

********************************************************************** 
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*  END  GETTING  A  CHARACTER  FROM  THE  KEYBOARD.  * 

********************************************************************** 
CALL  UCONV  (SELECT) 

********************************************************************** 


IF  (SELECT  .EQ.  '(')  THEN 

IF  (BPOINT  .LT.  MPOINT)  THEN 
WRITE  (6,  1100) 

1100  FORMAT  ('(',  \) 

PATH  (1:1)  =  '(' 

READ  (5,  1200)  PATH  (2:) 

1200  FORMAT  (A) 

CALL  BMCONV  (MATRIX,  MESAGE,  NVERT,  PATH) 

IF  (MESAGE  .EQ.  '  ')  THEN 

CALL  INSERT  (BPOINT,  LIST,  MATRIX,  MESAGE, 

+  MPOINT,  NVERT,  OPOINT) 

END  IF 

ELSE  IF  (BPOINT  . EQ .  MPOINT)  THEN 
MESAGE  =  'The  list  is  full.' 

ELSE 

CALL  HALT  ('BPOINT  is  greater  than  MPOINT.') 

END  IF 

********************************************************************** 


1300 

1400 

1500 

+ 

+ 

+ 

+ 

+ 


1600 

1700 


+ 

+ 


1800 

1900 


+ 


ELSE  IF  (SELECT  .EQ.  '[')  THEN 

IF  (BPOINT  .LT.  MPOINT)  THEN 
DO  1400  ROW  ==  1,  25 
WRITE  (6,  1300) 

FORMAT  (IX) 

CONTINUE 
WRITE  (6,  1500) 

FORMAT  (IX,  'Enter  a  matrix.  Note  that  a  ', 
'space  or  a  0  will  be  interpreted  as  ', 

'a  0  and  ',  /,  ix,  'every  other  ', 
'character  will  be  interpreted  as  a  1.', 

/,  IX,  /,  IX,  '  123456789abcdefghi' ,  /, 

IX) 

DO  1900  ROW  =  1,  NVERT 

WRITE  (6,  1600)  VSTRNG  (ROW:ROW) 

FORMAT  (IX,  A,  '  ' ,  \) 

READ  (5,  1700)  RSTR 
FORMAT  (A) 

DO  1800  COLUMN  =  1,  NVERT 

IF  ((RSTR  (COLUMN: COLUMN)  .EQ.  '  ') 

.OR.  (RSTR  (COLUMN: COLUMN)  .EQ.  '0')) 

THEN 

MATRIX  (ROW,  COLUMN)  =  .FALSE. 

ELSE 

MATRIX  (ROW,  COLUMN)  =  .TRUE. 

END  IF 
CONTINUE 
CONTINUE 

CALL  INSERT  (BPOINT,  LIST,  MATRIX,  MESAGE, 
MPOINT,  NVERT,  OPOINT) 

ELSE  IF  (BPOINT  .EQ.  MPOINT)  THEN 
MESAGE  =  'The  list  is  full.' 

ELSE 


CALL  HALT  ('BPOINT  is  greater  than  MPOINT.') 

END  IF 

****************-k*****-k-k-k*'k***-k**-k-k-k-k*-k-k*********-k*ic*******icit***-)fkit*** 
ELSE  IF  (SELECT  .EQ.  '+')  THEN 

CALL  PLUS  (BPOINT,  MESAGE,  OPOINT) 
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********************************************************************** 
ELSE  IF  (SELECT  .EQ.  THEN 

CALL  MINUS  (MESAGE,  OPOINT) 

********************************************************************** 
ELSE  IF  (SELECT  .EQ.  'C')  THEN 
IF  (OPOINT  .GT.  0)  THEN 

IF  (OPOINT  .LE.  MPOINT)  THEN 
DO  2100  ROW  =  1,  NVERT 

DO  2000  COLUMN  =  1,  NVERT 

MATRIX  (ROW,  COLUMN)  = 


+ 

LIST  (OPOINT,  ROW, 

COLUMN) 

2000 

CONTINUE 

2100 

CONTINUE 

CALL  INSERT  (BPOINT,  LIST,  MATRIX, 

MESAGE, 

MPOINT,  NVERT,  OPOINT) 

ELSE 

CALL  HALT  ('OPOINT  is  greater  than 
END  IF 

ELSE  IF  (OPOINT  .EQ.  0)  THEN 

MPOINT. ') 

MESAGE  =  'At  the  top  of  the  list.  There  is  '  // 

+  'no  relation  to  copy  here.' 


ELSE 

CALL  HALT  ('OPOINT  is  less  than  0.') 

END  IF 

**************************************************** *********^^^*^^^^^ 
ELSE  IF  (SELECT  .EQ.  'D')  THEN 

CALL  DELETE  (BPOINT,  LIST,  MESAGE,  MPOINT,  NVERT, 

+  OPOINT) 

ELSE  IF  (SELECT  .EQ.  'I')  THEN 

IF  (OPOINT  .GT.  MPOINT)  CALL  HALT 
+  ('OPOINT  is  greater  than  MPOINT.') 

IF  (OPOINT  .GT.  0)  THEN 

DO  2300  ROW  =  1,  NVERT 

DO  2200  COLUMN  =  1,  NVERT 

MATRIX  (COLUMN,  ROW)  = 

LIST  (OPOINT,  ROW,  COLUMN) 

CONTINUE 
CONTINUE 

DO  2500  ROW  =  1,  NVERT 

DO  2400  COLUMN  =  1,  NVERT 

LIST  (OPOINT,  ROW,  COLUMN)  = 

MATRIX  (ROW,  COLUMN) 

CONTINUE 
CONTINUE 

ELSE  IF  (OPOINT  .EQ.  0)  THEN 

MESAGE  =  'At  the  top  of  the  list.  There  is  '  // 

+  'no  relation  to  invert  here. ' 

ELSE 

CALL  HALT  ('OPOINT  is  less  than  0,') 

END  IF 

********************************************************************** 
ELSE  IF  (SELECT  .EQ.  'M')  THEN 

********************************************************************** 
*  BEGIN  CHECKING  POINTER  RELATIONSHIPS.  * 

********************************************************************** 

IF  (0  .GT.  OPOINT)  CALL  HALT 
+  ('0  is  greater  than  OPOINT.') 

IF  (OPOINT  .GT.  MPOINT)  CALL  HALT 
+  ('OPOINT  is  greater  than  MPOINT.') 


2200 

2300 


2400 

2500 
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********************************************************************** 
*  END  CHECKING  POINTER  RELATIONSHIPS.  * 

********************************************************************** 
IF  (OPOINT  .GT.  1)  THEN 

DO  2800  ROW  =  1,  NVERT 

DO  2700  COLUMN  =  1,  NVERT 

MATRIX  (ROW,  COLUMN)  =  .FALSE. 

DO  2600  SUB  =  1,  NVERT 

MATRIX  (ROW,  COLUMN)  = 

MATRIX  (ROW,  COLUMN)  .OR. 
(LIST  (OPOINT  -  1,  ROW,  SUB) 
.AND. 

LIST  (OPOINT,  SUB,  COLUMN)) 

CONTINUE 
CONTINUE 
CONTINUE 

CALL  DELETE  (BPOINT,  LIST,  MESAGE,  MPOINT,  NVERT, 
OPOINT) 

DO  3000  ROW  =  1,  NVERT 

DO  2900  COLUMN  =  1,  NVERT 

LIST  (OPOINT,  ROW,  COLUMN)  = 

MATRIX  ( ROW ,  COLUMN ) 

CONTINUE 
CONTINUE 

ELSE 

MESAGE  =  'Error.  You  need  two  charts  to  '  // 

+  'multiply.' 

END  IF 

*******************************************************************^*^ 
ELSE  IF  (SELECT  .EQ.  'G')  THEN 
GRID  =  .NOT.  GRID 

********************************************************************^* 
ELSE  IF  (SELECT  . NE .  'E')  THEN 

MESAGE  ==  'Your  selection  is  not  on  the  menu.' 

END  IF 

********************************************************************^^ 
IF  (SELECT  .NE.  'E')  GO  TO  100 
STOP 
END 

**********************************************************^^^*^^^^^^^^ 

************************************************jif**^***^^^*^^^^^^^^^^^ 

********************************************************************** 


+ 

+ 


2600 

2700 

2800 


2900 

3000 
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Historical  Comments  on 
Semigroups  and  Path  Notation 

As  one  might  suspect,  the  literature  on  semigroups  is  rather  diverse  with  certain  of 
its  areas  extensively  developed.  Hille’s  book  concerns  the  analytic  theory  of  semigroups 
and  its  applications  to  analysis,  while  Birkhoff’s  text  gives  an  account  of  lattice- ordered 
semigroups.  On  the  other  hand,  the  books  by  Suschkewitsch,  Ljapin,  and  Clifford  and 
Preston  concern  algebraic  semigroups  —  those  semigroups  not  endowed  with  any  further 
structure. 

Historically,  it  is  claimed  that  the  term  “semigroup”  first  appeared  in  the  mathematical 
literature  in  1904  (page  8  of  J.-A.  de  Seguier’s  book  [1]),  that  the  first  published  paper  on 
semigroups  appeared  in  1905  (L.  E.  Dickson  [1]),  and  that  the  first  book  on  semigroups 
appeared  in  1937  (A.  K.  Suschkewitsch  [2]).  (Clifford  and  Preston  [1]  and  also  Schein  [1].) 

From  1940  to  1961,  according  to  Clifford  and  Preston,  “. . .  the  number  of  papers  [on 
semigroups]  appearing  each  year  has  grown  fairly  steadily  to  a  little  more  than  30  on 
average.”  Their  estimate  roughly  equates  to  the  494  bibliographical  entries  in  the  1958 
(first)  edition  of  Ljapin’s  book  [1]. 

In  1952,  Wagner  introduced  inverse  semigroups  as  generalized  groups,  and  two  years 
later,  in  1954,  Preston  independently  discovered  these  semigroups,  calling  them  inverse 
semi-groups .  Subsequently,  research  activity  in  inverse  semigroups  has  been  substantial: 
In  1984,  M.  Petrich  published  his  674  page  text  Inverse  Semigroups.  It  contains  546 
bibliographical  entries,  505  of  which  are  dated  after  1958,  the  year  that  Ljapin  listed  494. 

At  the  very  beginnings  of  inverse  semigroup  theory,  Wagner  [1]  in  1952,  Preston  [2]  in 
1954,  and  Preston  [3]  in  1957,  proved  the  Wagner-Preston  Theorem  —  each  inverse  semi¬ 
group  is  isomorphic  to  a  subsemigroup  of  a  symmetric  inverse  semigroup  —  the  analogue 
of  Cayley’s  Theorem  from  group  theory. 

Also  in  1957,  as  part  of  his  study  of  characters  of  symmetric  inverse  semigroups,  W.  D. 
Munn  [1]  was  the  first  to  discover  a  notational  representation  of  charts  that  is  essentially 
equivalent  to  path  decomposition. 

Munn’s  decomposition  used  “links”  and  “cycles,”  instead  of  proper  paths  and  circuits. 
For  example,  given  the  chart  (18](29](345)(6)(7)  €  Cg,  he  would  write  [18][29](345)(6)(7), 
the  links  being  [18]  and  [29].  Links  were  defined  as  sequences.  Thus,  for  example,  [18] 
would  be  a  map  having  domain  of  size  2.  In  the  context  of  path  notation,  however,  (18] 
is  a  proper  2-path,  having  domain  of  size  1.  Similarly,  the  3-circuit  “(345)”  has  domain  of 
size  3,  while  in  the  context  of  Munn’s  notation,  “(345)”  is  a  cycle  with  domain  of  size  9. 
In  spite  of  these  differences,  Munn’s  approach  and  the  one  used  here  yield  essentially  the 
same  notational  form. 

By  the  mid-1980s,  the  idea  of  a  proper  path  was  evidently  an  idea  waiting  to  happen: 
In  1986,  independent  of  Munn,  the  author  [1]  invented  path  notation  (as  presented  here) 
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and  proved  Theorem  5.2.  (The  approach  grew  out  of  a  study  of  hypomorphic  mapping 
sets  in  the  famous  Graph  Reconstruction  Conjecture  (Chapter  13).)  In  the  next  year 
(1987),  G.  M.  S.  Gomes  and  J.  H.  Howie  [2],  independent  of  either  Munn  or  Lipscomb, 
introduced  the  notion  of  a  primitive  nilpotent,  which  they  denoted  “||12  •  •  •  fc||.”  (Unlike 
“links,”  primitive  nilpotents  are  precisely  proper  paths.)  In  their  Theorem  2.8,  they  show 
that  a  non-zero  nilpotent  in  Cn  is  a  disjoint  union  of  primitive  nilpotents,  which  is  part 
of  our  Theorem -5.2.  And  also  in  1987  (independent  of  Gomes  and  Howie,  Lipscomb,  and 
Munn),  R.  P.  Sullivan  [1]  defined  k-chains  “[1, . . .  ,  fc-f  1]”  and  k-cycles  “(1, . . .  ,  fc)”,  which 
are,  respectively,  proper  (k  -t-  l)-paths  and  ^-circuits. 

This  mid-1980s  idea  of  decomposing  charts  into  paths  merits  comparison  with  the  1815 
idea  of  decomposing  permutations  into  cycles.  In  the  permutation  case,  cycle  decomposi¬ 
tion  appeared  in  1815  along  with  the  beginnings  of  finite  group  theory.  In  particular,  in 
1815  Cauchy  [1,  page  18]  introduced  cycle  notation  “(i,i)”  for  transpositions,  factored  a 
three  cycle  {i,j,k)  =  {j,k)  o  {i,j),  and  then  (Cauchy  [2])  decomposed  permutations  into 
disjoint  cycles.  Cycle  notation  proved  useful  in  the  early  (up  to  1911)  development  of  finite 
group  theory:  Burnside  [1]  opens  his  1911  text  Theory  of  Groups  of  Finite  Order  with  the 
following  comment  on  cycle  notation, 

“AMONG  the  various  notations  used  in  the  following  pages,  there  is  one  of  such 
frequent  recurrence  that  a  certain  readiness  in  its  use  is  very  desirable  in  dealing  with 
the  subject  of  this  treatise.  We  therefore  propose  to  devote  a  preliminary  chapter  to 
explaining  it  in  some  detail.” 

Since  1911,  however,  the  approach  to  group  theory  has  become  more  and  more  abstract, 
requiring  less  and  less  cycle  notation.  Nevertheless,  cycle  notation  remains  useful,  if  not 
fundamental,  to  the  theory. 

In  contrast,  conceived  in  the  1950s,  inverse  semigroup  theory  was  axiomatic  from  its 
inception.  It  has  the  Cn  theory  as  one  of  its  branches  and  path  notation  did  not  appear 
until  the  mid-1980s.  As  to  the  state  of  the  Cn  theory  in  1985,  consider  the  following 
statement  of  Gomes  and  Howie  [1]  (where  the  reference  number  “[!]”  refers  to  the  reference 
under  Petrich  on  page  C-6  below): 

“Since  the  theory  of  inverse  semigroups  is  now  extensive  enough  to  have  been  the 
subject  of  a  substantial  book  by  Petrich  [1],  it  is  perhaps  rather  surprising  that  very 
little  has  been  written  on  the  symmetric  inverse  semigroup.” 
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